CZTUZAO TU80 fRONT END PRT D 
USER DOCUMENTATION 



MACRO HI 200 29-nAR-83 13:43 PAGE 2 



SEQ 1 



.REH\ 



IDENTIFICATION 



PRODUCT ID: 



AC-T336A-nC 



PRODUCT TITLE: 



CZTUZAO TUaO FRONT-END PRT D 



PRODUCT DATE: 



23 - MARCH -1983 



NAINTAINER: 



TAPE DIAGNOSTIC ENGINEERING 



AUTHOR: 



DICE SYSTEMS. INC. 



COPYRIGHT (C) 1983 BY 
DIGITAL EQUIPMENT CORPORATION, 
MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B£ USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE HADE AVAILABLE TO ANY OTHER 
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ABSTRACT 

1.0 ABSTRACT 



THIS IS A PDP-11 RESIDENT DIAGNOSTIC WHICH CHECKS THE PUNCTIONALITV 
OF A TU80 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM. 
THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. REFERENCE THE FOLLOWING 
DIGITAL EQUIPMENT DOCUMENTS: 

1. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE CONTROLLER; DOCUMENT 
NUMBER: YM-C194D-022: REVISION NUMBER 2; DATE: 28-JUL-81. 

2. ENGINEERING SPECIFICATION FOR TU80 DIAGNOSTIC PACKAGE; DOCUMENT 
NUMBER: YM-C194F-00; REVISION NUMBER 0; DATE: 2-SEP-81. 

3. ENGINEERING SPECIFICATION FOR TU80 MAGTAPE SUBSYSTEM; DOCUMENT 
NUMBER: YM-C194S-02; REVISION NUMBER 3; DATE: 10-JUN-81. 

A. CIQPMAO XXDP4- PROGRAMMER'S MANUAL; DOCUMENT NUMBER AC-S296A-AC; 
DATE: U JULY 1980. 
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HARuWARi, SOFTWARE REQUIREMENTS AND PREREQUISITES 

2.0 HARDWARE, SOFTWARE REQUIREMENTS AND PREREQUISITES 

2.1 HARDWARE REQUIREMENTS 

PDP-11 FAMILY PROCESSOR WITH 32K WORDS OF MEMORY 
TU80 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTI0N:DIA6N0STIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 



2.2 OPTIONAL HARDWARE: 

UP TO 4 TU80 CONTROLLERS PER PDP-11 UP TO 1 DRIVE PER CONTROLLER 



2.3 SOFTWARE REQUIREMENTS 



PDP-11 DIAGNOSTIC SUPERVISOR (HSAADO) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP^) 



2.4 PREREQUISITES 



FUNCTIONAL PDP-11 FAMILY CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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OPERATING INSTRUCTIONS 

3.0 OPERATING INSTRUCTIONS 

3.1 OPERATOR COMMANDS 

THE TU80 DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
PDP-11 PROGRAMMER'S MANUAL "CIQPMAO XXDP* PROGRAMMERS MANUAL, NUMBER 
AC-S296A-AC. THE OPERATOR RESPONSE IS IN QUOTES. 



BOOT THE DIAGNOSTIC XXDP MEDIA 



CHMDLBO XXDP« DL MONITOR 28K 

BOOTED VIA UNIT 0 

ENTER DATE (DD-MMM-YR) :"29-JAN-82" 

RESTART ADDRESS: 153726 

50 HZ? N " <CR> 

LSI? N Y<CR> 

THIS IS XXDP*. TYPE "H" OR "H/l" FOR DETAILS 
R CZTUZAO 

CZTUZABINDRS LOADED 

DIAG. RUN-TINE SERVICES REV D. APR 79 

CZTUZ-A-O 

**t*TU80 LOGIC DIAGNOSTIC**** 

UNIT IS TU80 

DR> " STA/FLA:PNT:HOE " 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SWITCHES ON WHICH ARE '1>RINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 



3.2 HARDWARE PARAMETERS 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A *V (NO) RESPONSE TO THE "CHANGE HW?" QUESTION. THE DIAGNOSTIC WILL 
NOT RUN. IT WILL GIVE THE MESSAGE "NO UNIT". A 'T* IS REQUIRED AND AT 
LEAST A "1" IS REQUIRED AT THE "# UNITS (D)?" QUESTION. 

TS8A/TSDB » 172522. VECTOR - 224 



ON A "Y" (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A 
^ALUE. IF PRESENT. LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
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DEFAULT VALUE THAT WILL BE TAKEN !F ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSF. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "(L>" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y" FOR YES. "H" FOR NO. 

« UNITS (D> ? <ENTER THE NUMBER OF M745A CONTROLLERS 
PRESENT TO BE TESTED> 

UNIT 0 

DEVICE ADDRESS (0) 172S22 ? <ENTER THE ADDRESS OF THE 

TSSR REGISTER> 

VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 

VECTOR> 

THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "# UNITS?" QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER. BEGINNING AT 0. UP TO EIGHT UNITS CAN BE 
SELECTED FOR TESTING. 



3.3 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART. OR CONTINUE; 
THEY ALLOW FLEXIBILITY IN THE WAV THE PROGBAR BEHAVES. 

CHANGE SW (L) ? <TyPE Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 

INHIBIT ITERATIONS (D N ? <TYPE 'V TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 



H 1 

C2TUZA0 TUaO FRONT END PRT D MACRO HI 200 29-MAR-83 13:43 PAGE 8 
USER DOCUHENTATION 

OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 

4.0 OPERATING INSTRUCTIONS • SAH^l.E PRINTOUTS 

4.1 SUCCESSFUL RUN EXAMPLE (PDP-11) 

TST: 001 WRITE TAPE MARK RETRY TEST 
TST: 002 SKIP TAPE MARKS TEST 
TST: 003 NO-OP AND INITIALIZE TEST 
TST: 004 ERASE AND OPERATION INCOMPLETE TEST 
TST: 005 TEST OF OPERATIONS AT EOT TEST 
TST: 006 FUNCTION TIMING TEST 

0 ERRORS 

NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 
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5.0 OPERATING INSTRUCTIONS - SAMPLE ERROR M£SSAGES 

ERROR MESSAGE EXAMPLE 1 
TST: 001 FIFO EXERCISER TEST 

CZTUZ HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 
FIFO STATUS (IN WORD 9) INCORRECT AFTER WRITE FIFO 

TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT «> 

PARERR<15> lEOT <12> IFMK <9> IRDY<6> IRUD<2> 

IRESV2<U> IIDENT<11> IHER <8> I0NL<5> IFBY<1> 

IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 1FPT<0> 

TAPE BUS SIGINALS IN WORD #9: 
DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 

MESSAGE BUFFER ADDRESS ' 047352 

MESSAGE BUFFER CONTENTS: 
WORD #0 EXPD: 100020 RECV: 100020 



WORD «1 EXPD: 
WORD #2 EXPD: 
WORD «3 EXPD: 000010 
WORD #4 EXPD: 000000 
WORD «5 EXPD: 
WORD #6 EXPD: 
WORD #7 EXPD: 
WORD «8 EXPD: 070217 
WORD #9 EXPD: 000074 



000012 
000000 



000000 
000000 
000000 



RECV: 000012 

RECV: 000000 

RECV: 000010 

RECV: 000000 

RECV: 000000 

RECV: 000000 

RECV: 000000 

RECV: 070217 

RECV: 000034 



XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000000 

XOR: 000040 



ERROR MESSAGE EXAMPLE 2 

CZTUZ HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COMMAND 

TSSR ' 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE « UNRECOVERABLE ERROR 

PACKET ADDRESS « 026420 

PACKET WORD « - 140010 

PACKET WORD « s 000010 

PACKET WORD # = 000000 

PACKET WORD » « 000024 



ERROR MESSAGE EXAMPLE 3 



CZTUZ HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 
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PROGRAM RUN TIMES 



6.0 PROGRAM RUN TINES 



THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-n/23 ) 
PROCESSOR WITH A LA-34 CONSOLE. 

THE PROGRAM RUNS IN TWO MODES: NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE. EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 



TEST 
NUMBER 



N/I 
SECS. 



NUMBER 
ITER 



DEF 
SECS. 



2 
3 

S 
6 



0 
0 
0 
0 
0 
0 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 



Q.V. 
DEFAULT 



15 SECONDS 

16 SECONDS 
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7.0 TEST SUMNARIES 
7.1 TEST 1 - WRITE TAPE MARK RETRY 
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• NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE • 

* ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT 

THIS TEST VERIFIES PROPER OPERATION OF THE URITE T;PE MARK RETRY 
COMMAND ( SPACE REVERSE. ERASE, URITE TAPE NARK). SUBTESTS ARE 
AS FOLLOWS: 

7.1.1 TEST 1. SUBTEST 1;- 

VERIFIES THAT A WRITE TAPE NARK RETRY CONNAND ISSUED WHILE THE TAPE 
IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERNINATION WITH THE 
NON-EXECUTABLE (NEF) ERROR BIT SET. 

7.1.2 TEST 1. SUBTEST 2:- 

VERIFIES THAT A WRITE TAPE NARK RETRY CONNAND ISSUED WHILE THE 
TAPE IS POSITIONED BEFORE THE FIRST RECORD, BUT NOT AT BOT. 
RESULTS IN TAPE STATUS ALERT TERNINATION, WITH THE REVERSE INTO 
BOT (RIB) STATUS BIT SET. 

7.1.3 TEST 1, SUBTEST 3:. 

VERIFIES THAT A WRITE TAPE NARK RETRY CONNAND TERNINATES PROPERLY 
AND WRITES THE TAPE NARK ONTO TAPE (BY ISSUING A READ REVERSE 
CONNAND AND CHECKING FOR TAPE STATUS ALERT TERNINATION AND 
TNKsl). 

7.1.4 TEST 1, SUBTEST 4:- 

VERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 
RETRY OPERATION IS PERFORMED BY REWINDING THE TAPE, ISSUING 
SEVERAL WRITE TAPE NARK RETRY CONNANDS IN SUCCESSION, THEN 
ISSUING TWO SPACE RECORDS REVERSE CONNANDS IN SUCCESSION. THE 
SECOND SPACE RECORDS REVERSE CONNAND SHOULD TERNINATE WITH 
REVERSE INTO BOT (RIB) STATUS SET. 



7.2 TEST 2 - SKIP TAPE NARKS 



* NOTE: THIS TAPE NUST HAVE A GOOD NAGTAPE IN THE DRIVE 

• ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT 



t 
• 
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THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE NARKS 
FORWARD AND SKIP TAPE NARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
STOP (ESS) AND ENABLE TAPE MARKS STuP OFF BOT (ENB) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS 
OF THE FOLLOWING SUBTESTS ( FOR EACH SUBTEST. THE TAPE IS FIRST 
WRITTEN WITH AN APPROPRIATE SERIES OF DATA RECORDS, AND/OR TAPE 
MARKS, AND/OR DOUBLE TAPE NARKS. 

7.2.1 TEST 2, SUBTEST 1.- 

VERIFIES THAT A SKIP TAPE NARKS FORWARD COMMAND WITH A TAPE NARK 
COUNT OF 1 OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN 
WRITTEN WITH SEVERAL 'TILES"; EACH FILE CONSISTS Of A NUNBER OF 
DATA RECORDS FOLLOWED BY A TAPE NARK. EACH DATA RECORD CONTAINS 
THE FILE NUNBER AND THE RECORD NUNBER WITHIN THE FILE SO THAT 
TAPE POSITION CAN BE SUBSEQUENTLY VERIFIED BY READING THE DATA. 
THE TAPE IS AGAIN REWOUND AND A SERIES OF TAPE SKIP NARK CONNAND 
ISSUED AND THE RESULTS (TAPE STATUS ALERT TERNINATION, TNK^I . 
STATUS, TAPE POSITION VIA READ CONNAND) CHECKED. PRIOR TO ISSUANCE 
OF EACH SKIP CONNAND. A WRITE CHARACTERISTICS CONNAND IS ISSUED 
TO SET UP THE ESS AND ENB CONTROL BITS. ALL CONBINATIONS OF ESS 
AND ENB ARE USED (00.01,10.11) : OPERATION SHOULD BE THE SAME 
IN EACH CASE FOR THIS SUBTEST. 

7.2.2 TEST 2, SUBTEST 2:- 

VERIFIES THAT SKIP TAPE NARKS CONNAND WITH A TAPE NARK COUNT 
GREATER THAN 1 OPERATES PROPERLY. COUNTS OF 2, 3. 8, 32, 64, 
256, AND S12 ARE TESTED. THE TESTING SEQUENCE IS SINILAR TO 
THAT USED IN SUBTEST 1. 

7.2.3 TEST 2. SUBTEST 3:- 

VERIFIES THAT A SKIP TAPE NARKS REVERSE CONNAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERNINATION 
WITH THE NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 

7.2.4 TEST 2, SUBTEST 4:- 

VERIFIES THAT A SKIP TAPE NARKS REVERSE COMMAND ISSUED WHILE THE 
TAPE IS POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT NOT 
AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH THE REVERSE 
INTO BOT (RIB) STATUS BIT SET. 

7.3 TEST 3 - NO-OP ("CLEAN TAPE") AND INITIALIZE 



THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND INITIALIZE 
CONNAND. SUBTESTS ARE; _^ 
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7.3.1 TEST 3, SUBTEST 1;- 

VERIFIES THAT THE NO-OP COHNAND ( CuitRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY ( NORMAL TERMINATION), STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 
INDEED DOE NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND WRITTEN 
WITH THE SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN AND 
THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE IS 
STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST RECORD 
ON TAPE IS READ AND VERIFIED (TO CHECK THAT TAPE POSITION AND 
VERIFYING DATA WERE NOT CHANGED), THEN THE NO-OP COMMAND IS 
ISSUED AGAIN AND STATUS AND POSITION ARE VERIFIED. 

7.3.2 TEST 3. SUBTEST 2:- 

VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 
HAVE ALREADY BEEN DETECTED IN OTHER TESTS). THE TEST SEQUENCE 
IS SIMILAR TO THAT USED IN SUBTEST 1 . 

7.4 TEST 4 - ERASE AND OPERATION INCOMPLETE 



* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE • 

• ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT • 



THIS TEST VERIFIES THAT THE ERASE COMMAND OPERATES PROPERLY AND 
THAT THE VARIOUS OTHER TAPE NOTION CONRANOS TERMINATE WITH UN- 
RECOVERABLE ERROR (TAPE POSITION LOST) AND OPERATION INCOMPLETE 
(OPI) STATUS WHEN THEY 00 NOT ENCOUNTER ANY DATA ON THE TAPE. 
THE TEST CONSISTS OF THE FOLLOWING SUBTESTS: 



7.4.1 TEST 4, SUBTEST 1;- 

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS POSITIONED 
AT BOT OPERATES PROPERLY AND ACTUALLY ERASES THE TAPE. THE FOLLOWING 
TEST SEQUENCE IS PERFORMED: 

1. THE TAPE IS FIRST REWOUND. THEN SEVERAL TEST RECORDS ARE 
WRITTEN AND THE TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED. WHICH SHOULD ERASE A NUMBER 
OF TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND POSITION IS CHECKED 
(BOT SHOULD BE 0). 

4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT THE 
COMMAND TERMINATES WITH TAPE STATUS ALERT. THAT TH E REVERSE 



CZ1UZA0 TU80 FRONT END PRT D MACRO Ml 200 29-nAR-83 13:43 PAGE 12-3 
USER DOCUMENTATION 

INTO BOT (RIB) STATUS BIT IS SET« AND THAT NO DATA IS 
TRANSFERRED. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY THE ERASE COMMAND. 

7.4.2 TEST 4, SUBTEST 2:- 

VERIFIE5 MAT AN ERASE COMMAND, EXECUTED UHEN THE TAPE IS NOT 

POSITION AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 

PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 

1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN. AND THE TAPE IS REWOUND AGAIN. 

2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL RECORDS. 

3. AN ERASE COMMAND IS ISSULO, WHICH SHOULD ERASE A NUMBER 
OF TEST RECORDS. 

4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

5. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED RECORD. 
THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED IN THE AREA 
ERASED BY THE ERASE COMMAND, AND THAT THE PREVIOUS RECORD 
WAS NOT CORRUPTED. 

7.4.3 TEST 4, SUBTEST 3:- 

VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER. OR 
EXECUTED BEYOND THE EOT MARKER. CAUSES TAPE STATUS ALERT TERMINATION 
WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE OTHEh TAPE 
MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK RESULTS IN 
UNRECOVERABLE ERROR TERMINATION AND OPERATION INCOMPLETE STATUS. 
THE FOLLOWING TEST SEQUENCE IS EXEO'TEDt 

1. THE TAPE IS REWOUND. 

2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT 

STATUS IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION 
OTHER THAN NORMAL (WITH EOT«0). OR TAPE STATUS ALERT 
TERMINATION (WITH EOT^D IS ENCOUNTERED. IF THE CONTROLLER 
OR TRANSPORT DOES NOT DETECT THE EOT. THE TRANSPORT WILL 
FAULT. THIS IS REPORTED AS A FATAL ERROR AND THE TEST 
IS ABORTED. 

3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS VERIFIED 
THAT TAPE STATUS ALERT TERMINATION RESULTS. WITH E0T=1. 

4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS (ISSUED 
IN THE ORDER GIVEN ) RESULTS IN UNRECOVERABLE ERROR 
TERMINATION WITH OPI-1: SPACE REC0R9S REVERSE. SKIP TAPE 
NARKS REVERSE. READ REVERSE. REREAD PREVIOUS (OPPsO). 

RgREAD PREVIOUS (OPPal). REREAD NEXT tOPPxD. REREAD NEXT 
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COPP-0). READ NEXT. SKIP TAPE MARKS REVERSE, SKIP TAPE 
NARKS FORWARD. REVERSE SKIP TAPE MARKS FORWARD, SPACE 
RECORDS FORWARD, WRITE DATA RETRY. 

NEXT STEP: IF BUFFERING IS ENABLED. IT IS DISABLED VIA THE 
BUFFER CONTROL FIELD IN THE EXTENDED CHARACltRISTICS DATA 
WORD SUPPLIED BY A WRITE. 

7.5 TEST 5 - OPERATIONS AT EOT 



• NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 

• ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT • 



THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY 
BY THE VARIOUS TAPE NOTION CONNANDS. THE FOLLOWING TEST 
SEQUENCE IS PERFORNED: 



1. THE TAPE IS REWOUND. 

2. WRITE DATA COWUNDS ARE REPEATEDLY ISSUED UNTIL TAPE STATUS 
ALERT TERNINATION IS SEEN WITH EOT'l. ERRORS OTHER THAN 
OCCASIONAL CORRECTABLE, OR UNCORRECTABLE DATA ERRORS CAUSE 
A FATAL ERROR REPORT. RECORDS WITH DATA ERRORS ARE RETRIED, 
SO THE TAPE ENDS UP WITH GOOD DATA. 

3. ANOTHER WRITE DATA COMHAND IS ISSUED AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERNINATION OCCURS, WITH EOT^T. 

4. A WRITE TAPE NARK CONNAND IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOTsI . 

5. A SKIP TAPE NARKS REVERSE COMMAND IS ISSUED, AND IT IS CHECKED 
THAT ATPE STATUS ALERT TERNINATION OCCURS WITH E0T«1, AND 
THKsT. 

6. A SPACE RECORDS REVERSE CONNAND, WITH A RECORD COUNT OF 
1, IS ISSUED. AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS. WITH EOTd. AND TNK«1. 

7. A SPACE RECORDS REVERSE CONNAND, WITH A RECORD COUNT 

OF 1, IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS WITH EOT'l. 

8. A SPACE RECORDS FORWARD CONNAND, WITH A RECORD COUNT OF 1, 
IS ISSUED, AND IT IS CHECKED THAT NORNAL TERNINATION OCCURS. 
WITH E0T=1. 

9. A READ REVERSE CONNAND IS ISSUED. AND IT IS CHECKED THAT 
NORNAL TERMINATION OCCURS WITH EOTsl. 

10. A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED THAT 
NORNAL TERNIANTION OCCURS. WITH EOTsl. 
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n. A SPACE RECORDS REVERSE CONHAND. WITH A RECORD COUNT OF 3. 
IS ISSUED. AND IT CHECKS THAT NORHAL TERMINATION OCCURS 
WITH EOT«0. 

12. A SPACE RECORDS FORWARD COHHAND WITH A RECORD COUNT OF 3 
IS ISSUED. AND IT IS CHECKED THAT NORHAL TERMINATION 
OCCURS WITH EOTsl. 

13. A SKIP FILE HARKS REVERSE CONHAND IS ISSUED. WHICH SHOULD 
SKIP ALL THE WAY TO BOT. AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS. WITH EOTsQ, B0T<1. AND 
RIBsl. 



7.6 TEST 6 - FUNCTION TIMING 



• NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE • 

* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT • 



THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS. GAPS. AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED NODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE. AND A 
SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE. OPERATE THE 
TAPE IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS. USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 



\ 

706 
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708 
709 
715 

716 000000 

717 

718 

724 000000 

725 002000 

726 002000 
002000 

727 
728 
729 
730 
731 
732 
733 



D 2 

MACRO M1200 29-MAR-83 13:43 P#GE 13 

.SBTTL PROGRAM HEADER 

.NCALL SVC 
SVC 

.ENABLE LC 

.NLJST BEX.CND 

.ENABL AMA.ABS 
. B 2000 

BGKMOD TUV2A 

TUV2A:: 



;♦♦ 

; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
: THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



SEO 16 



INITIALIZE SUPERVISOR MACROS 



734 002000 






POINTER BGNSU,BGNSFT,B6NAU.BGNDU,BGNRPT,8GNSETur 


735 002000 






HEADER 


CZTUZ.A.0.655..0 


002000 




LSNAME: 


• 




; DIAGNOSTIC NAME 


002000 


103 




.ASCII 


/C/ 


002001 


132 




.ASCII 


III 




002002 


124 




.ASCII 


IM 




002003 


125 




.ASCII 


/u/ 




002004 


132 




.ASCII 


III 




002005 


000 




.BYTE 


0 




002006 


000 




.BYTE 


0 




002007 


000 




.BYTE 


0 




002010 




LSREV:; 






:REVISION LEVEL 


002010 


101 




.ASCII 


Ikl 


002011 




LSDEPO: 






;0 


002011 


060 




'.ASCII 


101 


002012 




LtUNlT: 






: NUMBER OF UNITS 


002012 


000001 




*.UOf)D 


TfPTHV 


0020U 




LSTini: 






.•LONGEST TEST TIME 




QOlel r 




'.WORD 


655. 


002016 




LSNPCP: 






:POINTER TO H.W. QUFS. 


002016 


071224 




'.UORD 


LSHARO 




002020 




LJSPCP: 






.•POINTER TO S.SI. QUES. 


002020 


071364 




'.WORD 


LSSOFT 


002022 




LSHPTP: 






;?TR. TO DEF. H.W. PTABLE 


002022 


002124 




'.WORD 


LfHW 




002024 




LSSPTF: 






;PTR. TO S.W. PTABLE 


002024 


002134 




'.WORD 


LSSW 


002026 




llLADP: 






;DIA6. END ADDRESS 


002026 


072332 




'.UORD 


LSLAST 


002030 




LSSTA:: 






;RESERVED FOR APT STATS 


002030 


000000 




.WORD 


0 


002032 




LSCO:: 








002032 


000000 




.WORD 


0 




002034 




LWTYP: 






;DIAGNOSTIC TYPE 


002034 


000000 




'.WORD 


0 




omui 




LSAPT:: 






;APT EXPANSION 


002036 


000000 




.WORD 


w 


002040 




LfDTP:: 






;PTR. TO DISPATCH TABLE 


002040 


071552 




.WORD 


LSOISPATCH 


002042 




LSPRIO: 


• 

• 




:D1AGN0STIC RUN PRIORITY 
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PROGRAM HEADER 










002042 


000000 


.WORD 


0 




002044 




LSENVl:: 




: FLAGS DESCRIBE HOW IT WAS SETUP 


002044 


000000 


.WORD 


0 




002046 




LSEXPI : : 




: EXPANSION WORD 


002046 


000000 


.WORD 


0 




002050 




LMREV:: 




;SVC REV AND EDIT » 


002CSO 


003 


.BYTE 


CSREVISION 


002051 


003 


.BYTE 


rCCAf T 




002052 




LSEf : : 




,t\tkli CUCkiT CI &AC 

;Dlnu. CVCNI fLAu5 


002052 


OOCOOO 


.WORD 


U 




002054 


000000 


.WORD 


A 

U 




002056 




LSSPC : : 






002056 


000000 


.WORD 


n 




002060 




LSDEVP: : 






002060 


003334 


.WORD 


1 CnuTVD 




002062 




L$REPP: : 




• DTD TA DCDnDT tfitit 


002062 


023052 


.WORD 


1 &DDT 




002064 




LSEXP4: : 






002064 


000000 


.WORD 


A 

U 




002066 




LSEXP5: : 






002066 


000000 


.WORD 


A 

u 




002070 




LSAUT : : 






002070 


022550 


.WORD 






002072 




LSOUT:: 




• DTD Tn ftDAD iiiitT mns 


002072 


022646 


.WORD 


LvVU 


• IIMI (M FVFftriCFAC TO Fill 

.Lull run CnCnkl»Cn9 lU >ILL 


002074 




LtLUN:: 




002074 


000000 


.WORD 


0 




002076 




LSDESP: : 






0O2076 


003342 


.WORD 






002100 


LSLOAD: : 




•fiFNFRATE SPFCIAL AUTOLOAD EMT 


002100 


104035 


EH7 


C VkWAV 




002102 




LSETP:: 




'POINTER TO ERRTBL 


002102 


000009 


.WORD 


n 
w 


•PTR. TO INIT CODE 


002104 




LSI CP: : 




002104 


021752 


.WORD 


LSINIT 


;PTR. TO CLEAN-UP CODE 


002106 


LSCCP: : 




002106 


023030 


.WORU 


LSCLEAN 




002110 




LSACP: : 




;PTR. TO AUTO CODE 


002110 


022754 


■WORD 


LSAUTO 


:PTR. TO PROTECT TABLE 


002112 


LiPRT: : 




002112 


021 742 


.WORD 


LSPROT 




002114 




UTEST: : 




:TEST NUMBER 


002114 


000000 


.WORD 


0 


; DELAY COUNT 


Wet to 


L9ULT • : 




002116 


000000 


.WORD 


0 




002120 




LSHIME:: 




;PTR. TO HIGH MEM 


002120 


OOOOOC 


.WORD 


0 





F 2 
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DEFAULT HARDWARE P-TABLE 



737 
738 
739 
740 
741 
742 
743 

744 002122 
002122 
002124 
002124 

745 

746 002124 

747 002126 

748 002130 

749 002132 
002132 
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SEO 18 



000003 



172522 
000224 
000240 



.SBTTL DEFAULT HARDWARE P-TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



LSHU:: 
DFPTBL: 



LI 0000: 



B6NHW 
.WORD 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 

LlOOOO-LSHW/2 



172522 
224 
PR 105 



; DEFAULT HARD-P-TABLE 



2ND (OF 2) REGISTERS. 
INTERRUPT VECTOR 
INTERRUPT PRIORITY. 



6 2 



C2TUZA0 TU80 FRONT END PRT D 
SOFTWARE P-TABLE 

751 
752 
753 
754 
755 
756 

757 002132 

002132 000004 

002134 

002134 

75E 

759 002134 000000 

760 002136 000000 
761 

762 

/6S 002140 000031 

764 002U2 000310 

765 002144 
002144 

766 
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.SBTTL SOFTWARE P-TABLE 



THE SOFTWARE P-^ABLE CONTAINS THE VALUES CF THE P^^OGRAH 
PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



B6NSW 
.WORD 



LiSW: : 
SfPTBL:: 

TRANSTCT:: 
NOITS:: 



LERRMAX:: 
6ERRMAX:: 

ENDSW 

LI 0001 ; 



SFPTBL 

L10001-LISW/2 



.WORD 0 
.WORD 0 



.WORD 25. 
.WORD 200. 



ENABLE RAM DUMP IF si 
INHIBIT ITERATION OPTION. 
... 0 « ITERATE. 
...HI s INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMiT 
GLOBAL (PER UNIT) ERROR LIMIT 



I 



1 



H 2 



CZTUZAO TU80 FRONT END PRT D 
SOFTWARE POTABLE 

769 
776 
781 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 

800 002144 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000?01 
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.SBTTL GLOBAL EQUATES SECTION 



SEQ 20 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 
BIT OIF INI T IONS 



: GET STANDARD EQUATES. 



BIT15» 


100000 


BITUss 


40000 


B.TT13» 


20000 


BIT12*« 


10000 


Bim«« 


/AAA 

4000 


BIT10» 


2000 


BIT09>« 


1000 


BIT08«« 


400 


BIT07«« 


200 


BIT06>« 


100 


BIT05» 


40 


BIT04«« 


20 


BIT03» 


10 


BIT02«« 


4 


BIT01«« 


2 


BITOO** 

• 


1 


BIT9=« 


BIT09 


BITS" 


BIT08 


BIT7«« 


BIT07 


BIT6«« 


BIT06 


BIT5» 


BIT05 


BIT4«« 


BIT04 


BIT3«« 


BIT03 


BIT2«s 


BIT02 


BIT1«» 


BITOT 


BIT0«« 


BITOO 


: EVENT 


FLAG DEFINITIONS 



EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



000040 


EF. START" 


32. 


000037 


EF.RESTART» 


31. 


000036 


EF.CONTINUEss 


30. 


000035 


EF.NEW» 


29. 


000034 


EF.PURbs 


28. 



START COMMAND WAS ISSUED 
RESTART COMMAND UAS ISSUED 
CONTINUE COMMAND UAS ISSUED 
A NEW PASS HAS BEEN STARTED 
A POUER-FAIL/POUER-UP OCCURRED 



; PRIORITY LEVEL DEFINITIONS 
f 



CZTUZAO TU80 FRONT END PRT D 
GLOBAL EQUATES SECTION 



I 2 

MACRO N1200 29-nAR-83 13:43 PAGE 17-1 



SEQ 21 



801 

802 002U4 





rRlUf-* 




000300 


PRI06SS 


300 


000240 


PRIOSs* 


240 


000200 


PRI04«< 


200 


OOOUO 


PRI03«« 


140 


UUU 1 Uv 


PRI02»s 


100 




PRI01s« 


40 


uvuuuu 


PRIOOs* 


0 




; OPERATOR FLAG 


uwwui 


EVL*« 


4 


000010 

WW 1 w 


LOTS* 


10 


vWvCw 


ADRs* 


20 


WW1V 


IDU«- 


40 


0001 on 

vW 1 W 


ISR*s 


100 


WvCW 


UAMss 


200 


000^00 


BOE«s 


400 


001000 


PUT** 


1000 


002000 


PR1« 


2000 


OOAOOO 


IXE" 


4000 


010000 


IBE«- 


10000 


020000 


lERs* 


20000 


040000 


LOEb« 


40000 


100000 


HOEsx 


100000 



0002S0 

177572 
177574 
177576 
172516 



KT11 .-DEFINE NENORV MANAGEMENT REGISTERS 

MEMORY MANAGEMENT DEFINITIONS 
VECTOR ADDRESS 
250 

STATUS REGISTER ADDRESSES 
177572 
177574 
177576 
172516 



.SBTTL 
;«KT11 
MMVEC* 
;*KT11 
SROs 
SR1- 
SR2« 
SR3s 
.IF NB 
:*USER 
UIPDRO 
UIPDR1 
UIPDR2 

UIP0R3« 177606 
UIPDR4S 177610 
UIPDR5S 177612 
U1PDR6* 177614 
UIPDR7* 177616 
• IF NB 

••USER "D" PAGE DESCRIPTOR RE6IST0RS 
UDPDRO< 177620 
UDPDR1* 177622 
UDP0R2S 177624 
U0PDR3« 177626 
UDP0R4S 177630 
UDPDR5: 177632 
UDPDR6S 177634 
U0PDR7S 177636 
.ENDC 
.•♦USER "I 



'I" PAGE DESCRIPTOR REGISTERS 

177600 

177602 

177604 



PAGE ADDRESS REGISTERS 



CZTUZAO TU80 FRONT END PRT D 
HEHORY nANAGENENT DEFINITIONS 
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SEQ 22 



UIPARO« 177640 
UIPAR1« 177642 
UIPAR2* 177644 
UIPAR3« 177646 
UIPAR4« 177650 
UIPARS* 177652 
UIPAR6> 177654 
UIPAR7* 177656 
■ IF NB 

.'•USER "D" PAGE ADDRESS REGISTERS 

UDPARO« 177660 

UDPAR1« 177662 

UDPAR2« 177664 

UDPAR3* 177666 

UDPAR4> 177670 

UDPAR5S 177672 

UDPAR6» 177674 

UDPAR7* 177676 

.ENDC 

.ENDC 

• IF NB 

••SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPDRO* 172200 

SIPDRiB 172202 

SIPDR2- 172204 

SIP0R3« 172206 

SIP0R4« 172210 

SIP0R5* 172212 

SIPDR6« 172214 

SIP0R7S 172216 

.IF NB 

.'•SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 

SOPDRO« 172220 

SDPDRIs 172222 

SDPDR2> 172224 

SDPDR3* 172226 

SDPDR4S 172230 

SDPORS« 172232 

SDPDR6S 172234 

S0PDR7> 172236 

.EMOC 

; •SUPERVISOR "I" PAGE ADDRESS REGISTERS 
SIPARO' 172240 
SIPAR1« 172242 
SIPAR2> 172244 
SIPAR3* 172246 
S1PAR4« 1722S0 
SIPAR5« 172252 
SIPAR6« 172254 
S1PAR7« 172256 
IF NB 

••SUPERVISOR "D" PAGE ADDRESS REGISTERS 
SOPARO« 172260 
SDPAR1* 172262 
SDPAR2* 172264 
SDPAR3* 172266 

SDPAR4« 172270 



CZTUZAO TU80 FRONT END PRT D 
NENORY fUNAGENENT DEFINITIONS 



172300 
172302 
172304 
172306 
172310 
172312 
1723U 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
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SEQ 23 



SDPARSs 172272 
SDPAR6« 172274 
SDPAR7« 172276 
.ENDC 
.ENDC 

: •KERNEL "r* PAGE DESCRIPTOR REGISTERS 

KIPDRO* 172300 

KIPDR1* 172302 

KJPDR2> 172304 

KIPDR3* 172306 

KIPDR4* 172310 

KIPDRSs 172312 

KIPDR6* 172314 

KIPDR7« 172316 

• IF NB 

.'•KERNEL "D" PAGE DESCRIPTOR REGISTERS 

KDPDRO* 172320 

KDPDRU 172322 

K0PDR2* 172324 

KDPDR3* 172326 

K0PDR43 172330 

KDPDRS* 172332 

KDP0R6* 172334 

KDPDR7S 172336 

.ENDC 

:*KERNEL "I" PAGE ADDRESS REGISTERS 

KIPARO* 172340 

KIPAR1« 172342 

KIPAR2* 172344 

KIPAR3* 172346 

KIPAR4« 172350 

KIPAR5* 172352 

KIPAR6« 172354 

KIPAR7* 172356 

• IF NB 

••KERNEL "D" PAGE ADDRESS REGISTERS 

KDPARO« 172360 

KDPAR1* 172362 

KDPAR2* 172364 

KDPAR3« 172366 

KDPAR4« 172370 

KDPAR5« 172372 

KDPAR6> 172374 

KDPAR7S 172376 

.ENDC 



L 2 
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607 

808 

809 

810 

811 

812 

813 

8U 

815 

816 

817 

818 

819 

820 

821 

822 

825 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

83A 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 



000004 
000060 
177560 
177562 



100000 
040000 
020000 
010000 
004000 
002000 
001400 
000200 
000100 
000060 
000016 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
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.SBTTL TU80 REGISTER AND PACKET DEFINITIONS 



SEO 24 



SOME GENERAL EQUATES. 



ERRVEC-- 
TTIVEC«» 
TTICSR» 
TTIBFR>» 



4 

60 

177560 
177562 



POINTER TO ERROR VECTOR FOR BUS TINE OUT, 
INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUFFER 



.BIT DEFINITIONS FOR TSSR REGISTER 



SCs 
BIE* 
SCEs 
RNR« 

Him* 

NBAs 

HIADDR* 

SSRs 

OFLs 

FATERRs 

TERCLS» 



6IT15 

BIT14 

BIT1S 

BIT12 

BIT11 

BIT10 

BIT9!BIT8 

BIT7 

BIT6 

BIT4!BIT5 
BIT3!BIT2!BIT1 



; SPECIAL CONDITION 
:BUS INTERFACE ERROR 
; SANITY CHECK ERROR 
: MODIFICATION REFUSED 
;NONEXISTANT MEMORY ERROR 
;NEED BUFFER ADDRESS 
: EXTENDED ADDRESS BITS 
:SU6 SYSTEM READY 
;OFF LINE BIT 

;FATAL TERMINATION ERROR CODES 
; TERMINATION CODES 



;8IT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
;(XSTO) 



XSOTMKs 


BIT15 


;TAPE MARK DETECTED 


XSORLSs 


BIT14 


; RE CORD LENGTH SHORT 


XSOLETs 


BIT13 


: LOGICAL END OF TAPE 


XSORLLs 


BIT12 


: RECORD LENGTH LONG 


XSOM.E« 


BIT11 


:URITE LOCK ERROR 


XSONEF* 


BIT10 


;NON EXECUTABLE FUNCTION 


XSOlLCs 


BIT9 


.•ILLEGAL COMMAND 


XS0ILA« 


BITS 


: ILLEGAL ADDRESS 


xsonoTs 


BIT7 


:TAPE IN MOTION 


XSOONL: 


BIT6 


.•TRANSPORT ON LINE 


XSOlEs 


61T5 


; INTERRUPT ENABLE 


XSOVCKs 


B1T4 


: VOLUME CHECK BIT 


XSOPEDs 


BITS 


.•PHASE ENCODED DRIVE 


XSOULKs 


BIT2 


:UR1TE LOCKED 


XSOBOTs 


BIT1 


.•BEGINNING OF TAPE 


XSOEOTs 


61 TO 


;END OF TAPE 



.-BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 1 
;(XST1) 
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SEO 2S 



864 


100000 


865 


040000 


866 


020000 


867 


01 7375 


868 


AAA 4 AA 

000400 


869 


A AAA A 4^ 

000002 


870 




871 




872 




873 




874 




875 


4 AAA AA 

100000 


876 


A/ AAAn 

040000 


877 


035400 


878 


AA'^AAA 

002000 


879 


AAA*) A A 

000200 


AAA 

880 


AAA4 AA 

000100 


881 


AAAA99 

000077 


882 


AAAAA9 

000007 


883 




884 




8BS 




886 




887 




Boo 


If r^OO 


889 


000200 


BAA 

890 


AAA4 AA 

000100 


891 


AAAA/ A 
000040 


892 


AAAAOA 
000020 


893 


AAAA 4 A 
000010 


•a/ 
894 


AAAAAA. 
000006 


895 


AAAAAt 
000001 


o9o 




89/ 




■a> 

o9o 




■aa 

899 




aaa 
900 




aAi 
901 


100000 


902 


AlAAAA 
040000 


903 


AOAAAA 
02UOOO 


90* 


A« AA 

01 r^OO 


aac 
905 


AAA177 

0003r r 


aAA 
906 




▼Of 




906 




909 




at A 
910 




911 




at 9 
91 < 








914 


000006 


915 


000006 


916 




917 




918 




919 




920 





X1.0LT s BIT15 : DATA LATE 

XI. SPARES BITU ;N0T USED 

XI. COR s BIT13 ; CORRECTABLE DATA ERROR 

X1.MBZ « BIT124B!T1UBIT10«BIT9«BIT7«BIT6«BlT5*BIT4*Bn3«BIT2«BIT0 .ALWAYS 0 

X1.RBP « BITS ;READ BUS PARITY ERROR 

X1.UNC s BIT1 :UNCORRECTABLE DATA OR HARD ERROR 

:BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
:(XST2> 

X2.0PH s BIT15 :OPERATION IN PROGRESS (TAPE MOVING) 

X2.RCE s BITU ;RAM CHECKSUM ERROR 

X2. SPARES BIT13«BIT12*B1T11«B1T9*BIT8 ;NOT USED BY TU80 (ALUAYS-O) 

X2.UCF * BIT10 ;URITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

X2.EXTF « BIT7 :IF WRITE CHAR CHD THEN « EXTENDED FEATURES ENABLED 

X2.BUFE s BIT6 :IF WRITE CHAR CHD THEN « BUFFERING ENABLED 

X2.REV s 000077 ;IF WRITE CHAR CHD THEN - MICROCODE REVISION LEVEL 

X2.UNIT s BIT2*B1TUBIT0 :IF GET STATUS THEN ' CURRENTLY SELECTED UNIT NO. 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
(XST3} 



X3.HDE ' 177400 
X3.SPARES BIT7 

X3.0PI s BIT6 

X3.REV s BIT5 

X3.TRF - BIT4 

X3.DCK s BIT3 

X3.HBZ SBIT24B1T1 

X3.RIB s BITO 



;HICRO-DIAGNOSTIC ERROR CODE 
;NOT USED BY TU80 
:OPERATION INCOHPLETE 
'REVERSE 

; TRANSPORT RESPONSE FAILURE 
.•DENSITY CHECK 
:NOT USED ALWAYS 0 
; REVERSE INTO BOT 



;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
;(XST4) 

X4.HSP » BIT1S :HI6H SPEED 

X4.RCE - BITU .-RETRY COUNT EXCEEDED 

X4.rSH s BIT13 :TRANSPORT SPECIAL MODE 

X4.HBZ s BIT12«BIT114BIT10«BIT9«BIT8 .NOT USED ALWAYS 0 

X4.WRC ' 000377 ;WRITE RETRY COUNT FIELD 



TSSR TERHINATION CODES (BIT 0-2) 



TSREJ> 3*2 
UNREC: 6 



DEVICE REGISTER OFFSETS 



: COMMAND REJECTED 
.•UNRECOVERABLE ERROR 
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SEQ 26 



921 






922 






923 


177776 


TSBAss -2 


924 


177776 


TSBAL== -2 


925 


177776 


TSDBss -2 


926 


177776 


TSDBL^s -2 


927 


177777 


TSBAHss -1 


928 


177777 


TSDBHss -1 


929 


000000 


TSSRs* 0 


930 


000001 


TSSRHss 1 


931 






932 






933 




: TSDB ADDRESS BIT DEFINITIONS 


934 






935 


000003 


A1716 s BITUBITO 


936 






937 






938 




: COMMAND DEFINITIONS 


939 




» " _ 
P.6ETSTAT s 17 


940 


000017 


941 


000013 


P.INIT s 13 


942 


000012 


P. CONTROL s 12 


943 


000011 


P. FORMAT = 11 


944 


000010 


P. POSITION = 10 


945 


000006 


P.URTSUB = 6 


946 


000005 


P.URITE = 5 


947 


000004 


P.URTCHAR = 4 


948 


000001 


P.READ = 1 


949 






950 






951 




: COMMAND PACKET HEADER WORD BIT 


952 






953 


100000 


P.ACK = BIT15 


954 


040000 


P.CVC s BIT14 


955 


020000 


P.OPP - BIT13 


956 


010000 


P.SUB = BIT12 


957 


007400 


P.MODE - BIT11!BIT10!BI 


958 


000200 


P.IE 5 BIT7 


959 


000140 


P.FMTs BIT6!BITS 


960 


000037 


P.CMD = 37 


961 






962 




; CONTROL COMMAND NO E CODES 


963 






964 


000000 


PC. RELEASE - 0*256. 


965 


000400 


PC. REWIND s 1*256. 


966 


001000 


PC.NOOP = 2*256. 


967 


002000 


PC.IEREU « 4*256. 


968 


002400 


PC. ERASE s 5*256. 


969 






970 




;♦ 


971 




; CONTROLLER RAH DEFINITIONS 


972 






973 


000167 


RMCHBE6 - 167 


974 


000200 


RMCHEND » 200 


975 


000020 


RMPKTBE6= 20 


976 


000027 


RMPKTEND- 27 


077 


0001 0& 


RMHS6BEG- 104 



:TSDB/TSBA REGISTER 
;TSDB/TSBA REGISTER 

:TSD6/TSBA REGISTER HIGH BYTE 

;TSSR REGISTER 

;TSSR REGISTER HIGH BYTE 



.-ADDRESS BITS 17; 16 ARE IN 1:0 



;6ET STATUS 

.•INITIALIZE 

.•CONTROL COMMANDS 

.•FORMAT 

:POSITION 

.-SUBSYSTEM WRITE 

.WRITE 

;UNITE CHARACTERISTICS 
.•READ 



:BUFFER AVAIL FOR CONTROLLER 

.•CLEAR VOLUME CHECK 

:REVERSE SEQUENCE OF DATA BITS 

.•SWAP BYTES IN MEMORY 

; EXTENDED COMMAND MODE FIELD 

.•INTERRUPT ENABLE 

.•PACKET HEADER TYPE (ALWAYS^O) 

: MAJOR COMMAND FIELD 



: RELEASE BUFFER 
: REWIND 
; NO-OP 

;REWIND IMMEDIATE INTERRUPT 
.•SECURITY ERASE 



CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
CHARACTERISTICS 10 DATA END RAN ADDRESS 
COMMAND PACKET BEGIN RAM ADDRSSS 
COMMAND PACKET END RAN ADDRESS 
MFSSAGE BUFFER BEGIN RAH ADDRESS 
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SEO 21 



978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



000117 



000006 
000010 
000012 
000014 
000016 



000002 
000004 
000006 

000010 



000000 
000001 
000002 
000004 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000010 
000011 
000020 
000021 
000022 
000023 
000024 



000200 



RHHSGENOs 117 



.-MESSAGE BUFFER END RAM ADDRESS 
REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



XSTO» 6 

XSTIss 8. 

XST2«* 10. 

XST3«« 12. 

XST4» 14. 



.•EXTENDED STATUS REGISTER 0 
;EXTENDED STATUS REGISTER 1 
.•EXTENDED STATUS REGISTER 2 
.EXTENDED STATUS REGISTER 3 
;EXTENDED STATUS REGISTER 4 



(WORD 4) 
(WORD 5) 
(WORD 6) 
(WORD 7) 
(WORD 8) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 

PKHI 

PKBCNT 



* 2 
« 4 
« 6 



EXBCNT>10 



;L0W ORDER CHARACTERISTIC DATA POINTER 
;HI6H ORDER CHARACTERISTIC DATA POINTER 
.'NUMBER OF BYTES IN DATA PACKET 

.NUMBER OF BYTES IN EXTENDED DATA PACKET 



;OATA PACKET OFFSETS FOR WRITE SUBSYTEN COMMAND 



BSELO = 0 
BSEL1 = 1 
SEL2 ' 2 
SELDATA s 4 



.-BYTE 0 
.•BYTE 1 
:U0RD 2 
.-WORD 3 



BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 



PW.NOP 

PW.RDRAM 

PW.WTRAM 

PW.RFIFO 

PW.WFIFO 

PW.RDSTAT 

PW.WCTL 

PW.WFMT 

PW.WHISC 

PW.IMPR 

PW.D22 

PW.D11 

PW.D13 

PW.N01311 

PW.RDEXT 



0 
1 
2 
3 
4 
5 
6 
7 

10 
11 
20 
21 
22 
23 
24 



;BSEL1 CODES FOR WRITE TAPE CONTROL 
WC.IFAD = BIT7 



; NO-OP 

.-READ RAM 

.WRITE RAM 

:READ FIFO 

:WRITE FIFO 

.•READ STATUS 

.•WRITE TAPE CONTROL 

:WRITE TAPE FORMAT 

.•WRITE MISCELLANE0;JS 

.WRITE NPft CONTROL 

:D0 mCROTEST 22 

;D0 MICROTEST 11 

;D0 MICROTESr 13 

.DISABLE MICROTEST 11 AND 13 

;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 



■IFAD - FORHATTfR ADDRESS 
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SEO 



1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

108S 

1086 

1087 

1088 

1089 

1090 

1091 



000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000200 
000020 
000010 
000006 
000001 



000000 
000002 
000004 
000006 



000200 
000100 
000040 
000020 



000200 
000100 
000040 
000020 
000010 
000004 
000003 
100000 
040000 
020000 



UC.IOTAD 

UC.I1TAD 

UC.ISRESV 

WC.IREU 

UC.IRUU 

UC.IFEN 

UC.IGO 



BIT6 
BITS 
BIT4 
l)IT3 
BlT2 

Bin 

6IT0 



BSEL1 CODES FOR WRITE FORHAT 



UF.IHISP 

UF.IURT 

UF.IREV 

WF.IUFN 

UF.IEDIT 

UF. I ERASE 

WF.I3RESV 

UF.I4RESV 



« BIT7 
« BIT6 
s BITS 
« BIT4 

* BITS 

* BIT2 
s BIT1 
> BITO 



;ITAOO 

:ITAD1 

;IRESVS 

;IREy 

;IRWU 

;IFEN 

;60 



:1HISP 

;IWRT 

:IREV 

;IUFN 

;IEDIT 

;IERASE 

:IRESV3 

;IRESV4 



TRANSPORT ADDRESS BIT 0 
TRANSPORT ADDRESS BIT 1 
RESERVED fS 
REUIND 

REWIND AND UNI.OAD 
FORMATTER ENABLE 



HIGH SPEED 

WRITE 

REVERSE 

WRITE FILE NARK 

EDIT 

ERASE 

RESERVED i3 
RESERVED #4 



BSEL1 CODES FOR WRITE HISCELLANEOUS SUBCOMMAND 



MS. EXT 

MS.RSFIFO 

MS.RSTAPE 

MS.ATTN 

MS.RSD 



* B1T7 
= BIT4 
a BIT3 
s BIT2'6IT1 
« BITO 



MS.ATTN SUBCODES 

MSA.NOP s 0*2 
MSA. VOL - 1*2 
MSA.NRAMs 2*2 
MSA.FRAM« 3*2 



INVERT SENSE OF EXTENDED FEATURES SWITCH 
RESET FIFO AND INPUT PARITY ERRORR 
RkSET TAPE STATUS IN 2 FLIP-FLOPS 
ATTENTION TRIGGER FIELD 
RESET TIMER A.B THEN DELAY TIMES IN SEL2 



:NO-OP (NOTHING TRIGGERED) 

;SIMULATE ON>i.lNE/OFF-LINE TRANSISTION 

;FORCE NON-FATAL RAN ERROR (FORCES ERRCOOE 54) 

:FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



WRITE SUBSYSTEM WRITE NPR BSELl BIT DEFINITIONS 



NP.IR = BIT7 

NP.OUT « BIT6 

NP.LOOP » BITS 

NP.WRP s BIT4 

; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 



.•INTERRUPT REQUEST (0-1 TRANSITION) 
;TAPE DATA DIRECTION OUT (0^ IN) 
: ENABLE TRANSPORT LOOPBACK 
:SRITE CORRECT PARITY (SET^O TO WRITE WRONG) 



S2.DIM 

S2.ILW 

S2. OUTRDY 

S2.INRDY 

S2.ATIMR 

S2.BTIMR 

S2.UNDEF 

S1.PARIN 

S1.I2RESV 

SI.IIRESV 



« BIT7 
- BIT6 
« BITS 
s BIT4 
s BITS 

' Bin 

> BITUBITO 
« BIT1S 
» BIT14 



WORD #9 BYTE 2 



(UNDEFINED) 
WORD #8 BYTE 



DATA IN MISS 
ILW H 
OUT RDY H 
IN RDY H 
TIMER A FLAG H 
TIMER B FLAG H 

PAR IN H 
IRESV2 

mm 
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1092 

1093 

1094 

109S 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

'152 

1133 

1134 

1135 

1136 

11S7 



010000 
004000 
002000 
001 COO 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



177560 
177562 
177564 
177566 
007776 

174400 
174402 
174404 
174406 



000004 
000006 
000010 
000014 
000016 

000001 
000013 
177730 
000006 
000177 
100200 

071566 
177560 
177562 
177564 
177566 



SI. 
SI. 
SI. 
SI. 
SI. 

so. 
so. 
so. 
so. 
so. 
so. 
so. 
so. 



lEOT 
IIDENT 
ICER 
IFHK 
IHER 
ISPEED 
IRDY 
lONL 
I LDP 
IDBY 
IRVD 
IFBV 
IFPT 



Bni2 
B1T11 
BITIO 
B1T9 
BlT8 
BIT7 
B1T6 
BIT5 
BIT4 
BIT3 
B1T2 
Bill 
BITO 



WORD #8 BYTE 



lEOT L 
IIDENT 
ICER H 
IFMK H 
IHER H 
0 ISPEED 



SPECIAL KEYBORD STUFF FOR HOVER PROGRAM 



IRDY 
lONL 
ILDP 
IDBY 
IRUD 
IFBY 
IFPT 



TKS ■-,77560 

TKB «1 77562 

▼PS "177564 

TPB «1 77566 

HIHEN «007776 
CONTROLLER DEFINITIONS 

CSR «1 74400 

BAR *1 74402 

DAft «1 74404 

HPR «1 74406 

CONTROLLER COHNANOS 

DL6ETS *4 

SEEK «6 

DLRDHD slO 

READ «14 

DLRDNN >16 



READY 

DLSR 

OLERR 

DLUN 

DLCVL 

DLDNER 



«1 
«13 

«1 77730 
«6 

«000177 
«100200 



ROMBASE « 

TTICSR » 
TTIBFR « 
TTOCSR = 
TTOBFR = 



HOVER 

177560 

177562 

177564 

177566 



.'KEYBOARD STATUS REGISTER 
.-KEYBOARD DATA REGISTER 
.•CONSOLE PRINTER STATUS REGISTER 
;CONSOLE PRINTER DATA REGISTER 
.•HIGH HENORY MASK VALUE 



STATUS AND CONTROL REGISTER 
DL ADDRESS REGISTER 
PLATTER ADDRESS 
MULTIPURPOSE REGISTER 



:6ET STATUS COMMAND 
.•SEEK TRACK AND HEAD SELECT 
;READ SECTOR HEADER 
;REA0 COMMAND 

.•READ SECTOR NO HEADER CHECK 

.•DRIVE READY BIT IN STATUS REG. 

.•STATUS AND RESET 

.-MASK FOR COVER OPEh 

.•HEADS UNLOADED 

.-MASK FOR CYLINDER ADDRESS 

:DONE SET OR ERROR SET BITS 



START OF THE BOOT ROM BBaaa 
KEYBOARD INPUT STATUS 
KEYBOARD DATA REGISTER 
CONSOLE PRINTER STATUS REGISTER 
CONSOLE PRINTER DATA REGISTER 



E S 
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SEO SO 



1139 


.SBTTL SPECIAL MACROS AND OPDEFS. 


1U0 




1141 




1U2 




1U3 


:SAVE GENERAL REGS i TO 5 


1144 




1145 




1146 


.MACRO SAVREG 


1147 


JSR R5.RE6SAV 


1148 


■ ENDM 


1149 




1150 


;♦ 


1151 


; MACRO TO FORCE AN ERROR 


1152 


.MACRO FORCERROR TA6*N0TSSR 


1153 


1154 


All ff 

.NLiST 


4 4 f 

1155 


fffff UKC 1 ffffVAl 1 All tCT 

.IIF NDF LISTALL* .NLIST 


1156 


•LIST 


1157 


.Ir B NOTSSR 


n5o 


MOV TSSR(R)).R1 ;RcAD TSSR 


4 4 C A 

1159 


.ENDC 


4 4 

1160 


nuV ruRLCN«rOliCtN ;ia FURCcR 5cl? (LcAVfc 


'4^4 

i161 


BNE TAG *BR IF Yea 


4 4 

1162 


All ff C T 

.NLIST 


1163 


.lIF ND? LISTALL* .LIST 


4 4 A J 

1164 


.LIST 


4 4 AC 

1165 


.ENDM 


4 4 X A 

1166 




1167 




1160 


i^MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 


4 4 

1169 


; UILL CXIT ID A LABcL If rDntcR 15 NcoAlJVc 


4 4 

1170 


; 50 TO rORCc ERRORS AND cXlT UN 1 eRRUR 5Ci 


4 4 94 

1171 


; FORCER TO trrrrr 


4 4 V% 

1172 


TA CAB^C CBBABC AftIK ffTCBATffAAIC CCT CABrCB TA 4 

: TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 


1173 


.MACRO FORCEXIT TAG 


4 4 ^1 

1174 


4 4 9C 

1175 


ftil ff CT 

.NLIST 


4 4 9X 

1176 


.IIF Nvr LISTALL* .NLIST 


4 4 W 

1177 


1 r c T 
.LIST 


4 4 9a 

1178 


NOV ruRLER.rQHLCR cla fUNlpCn PKOAIlvt: 


4 4 9A 

1179 


BMt TAC •OD tC VBC 

Bnl lAu •BR lr TC9 


4 4 AA 

1180 


Ul ff #T 

.NLIST 


4 4 A4 

11B1 


.IIF NDF LISTALL, .LIST 


4 4 tt^ 

1162 


.LIST 


4 4 ttV 

1183 


• ENDM 


4 4 AJ 

1184 




4 4 ttC 

1185 


• MA^ttA TA tijrBCMCAlT CBBAB ^AIIAITC 

• MACRO TO INCREMENT ERROR LuUNIS 


4 4 

1186 


MATBA AlCMT CBBIIA 

.HALRO NEXI.ERRIKI 


4 4 AY 

1187 


4 4 M 

1185 


All t CT 

•NLIST 


4 4 Ml 

1189 


• • • f f C AII\C 1 tCTAl 1 All 1 CT 

;;;.iir nor lisiall* .nlisi 


1190 


ERRNQsERRNO^I 


1191 


;;;.IIF NDF LISTALL. .LIST 
.LIST 


1192 


1193 


.ENDM 


1194 




1195 


il 



f 3 
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SPECIAL NACROS AND OPDEFS. 

1196 :NACRO TO PERFORM XOR 

1197 
1198 

1199 .MACRO XOR A,B 

1200 MOV A.-vSP) 

1201 BIC B.(SP) 

1202 BIC A,B 

1203 BIS (SP)«,B 

1204 .ENDN 

1206 000000 EN«0 .' INITIALIZE ERROR NUMBER 

1207 .SBTTL FORCER - FORCE ERROR FLAG 
1208 

1210 ; THE FOLLOWING LOCATIONS MAY BE PATCHED BV THE USER 

1211 : TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 
1212 

12U 0O2U4 000000 FORCER;: 0 : FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 

wci'^H uuuuuu _ ^^^^^ "IFERROR"). AN ERROR NEED NOT - 

1216 ; - EXIST. JUST ASSUME AND TYPE THE MESSAGE. 

1217 

1218 

1219 



6 3 



CZTUZAO TU80 FRONT END PRT D 
GLOBAL DATA SECTION 

1221 
1222 
1223 
1224 
122S 
1226 
1227 
1228 
1229 
1230 
1231 

1232 002U6 000000 

1233 002150 000000 

1234 002152 000000 

1235 002154 000000 

1236 002156 000224 

1237 002160 000200 

1238 002162 000030 

1239 002164 000000 

1240 002166 000000 

1241 002170 000000 

1242 002172 000000 

1243 002174 000000 

1244 002176 000000 

1245 002200 000000 

1246 002202 000000 

1247 002204 000000 

1248 002206 

1249 002246 000000 

1250 002250 000000 

1251 002252 000000 

1252 002254 000000 

1253 002256 000000 

1254 002260 000000 

1255 002262 000000 

1256 002264 000000 

1257 002266 

1258 002432 

1259 002576 

1260 002716 000000 
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.SBTTL GLOBAL DATA SECTION 



SEQ 32 



:THE GLOBAL DATA 5fCTI0N CONTAINS DATA THAT ARE USED 
:IN MORE THAN ONE TtST. 



;THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TINE. 
:SINGLE ilNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



• 


ijnDf\ 


A 
U 


•pDfuT cuirtu 


1 IMI TM • • 

UNI in:: 


• ■UNU 


A 
U 




uvr': : 


• WwnU 


A 
U 






(JOBb 
twvnv 


0 


•ADDRESS OF CSR FOR CURRENT DEVICE 


IIIFf • • 

IVCb • • 


UflRb 

tWVnV 




•INTERRUPT VECTOR 


IPRI • • 

Irnl • • 




PR 1 04 


•INTERRUPT PRIORITY. 


TCTfNT • > 




n 

V 


* NUMBER OF TESTS RUN IN THIS PASS 


1 nnPfNT • < 


UORD 


0 

w 


•REMAINING ITERATION COUNT FOR TEST 


ncuruT • • 
wcTkni • • 


»WVnV 


0 

V 


•NUPBER OF DEVICE UNDER TEST 


r A 1 r Lv « ft 




0 


•SET IF FATAL ERROR IS DETECTED IN TEST 


IMTRFfV* • 


UORD 


Q 

w 


•SET IF TAPE INTERRUPT UAS RECEIVFD 


ocnDsw • : 


UARD 
• ■UnW 


A 

V 


•BUFFER fMMLF SyiTCH SU OsOfF*1s(M 


EXPD:: 


.WORD 


0 


.•EXPECTED RAM DATA FOR PRAMPKT ROUTINE 


RECV:: 


.WORD 


0 


.•RECEIVED RAM DATA FOR PRAMPKT ROUTINE 


ERRHI : : 


.UORD 


0 


;HI6H ADDRESS MEMORY ERROR 


ERRLO:: 


.WORD 


0 


;LUU ADDRESS MEMORY ERROR 


RAMOATA:: 


.BLKU 


16. 


.•DATA READ FROM RAH PACKET OR MESSAGE BUF AREA 


RAMSIZ:: 


.W0R9 


0 


;RAM DATA SIZE FOR PRAMPKT ROUTINE 


RCVHIADD:: 


.UORD 


0 


.•RECEIVED BUFFER HIGH ADDRESS 


RCVLOADD:: 


.WORD 


0 


.•RECEIVED BUFFER LOU ADDRESS 


COUNT:: 


.WORD 


0 


.TEST COUNT PATTERN 


DATA: ; 


.WORD 


0 


.•TEST DATA 


TSTFLAG:: 


.UORD 


0 


.•TEST FLAG UORD 


TSTPTR:: 


.UORD 


0 


.•TSTBLK POINTER 


PRNNO:: 


.UORD 


0 


.•PRINT ROUTINE TEMP 


EXPNSG:: 


.3LICB 


100. 


;EXPECTED MESSAGE BUFFER DATA 


RECMS6:: 


.BLKB 


100. 


; RECEIVED MESSAGE BUFFER DATA 


TKPBFR:: 


.BLK6 


80. 


.TEMPORARY STORAGE FOR PRINT 


MESBFA:: 


.UORD 


0 


.-STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 



CZTUZAO TU80 FRONT END PRT D 

TSTBLK - TEST DATA TABLE 

1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 

1278 002720 

1279 002720 000000 

1280 002722 177777 

1281 002724 000001 

1282 002726 000002 

1283 002730 000004 

1284 002732 000010 

1285 002734 000020 

1286 002736 000040 

1287 002740 000100 

1288 002742 000200 

1289 002744 000400 

1290 002746 001000 

1291 002750 002000 

1292 002752 004000 

1293 002754 010000 

1294 002756 020000 

1295 002760 040000 

1296 002762 100000 

1297 002764 177776 

1298 002766 177775 

1299 002770 177773 

1300 002772 177767 

1301 002774 177757 

1302 002776 17773/ 

1303 003000 177677 

1304 003002 177577 
130> 00300^ 177377 

1306 003006 176777 

1307 003010 175777 

1308 003012 173777 

1309 003014 167777 

1310 003016 157777 

1311 003020 137777 

1312 003022 077777 

1313 003024 125252 

1314 003026 052525 

1315 003030 
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.SBTTL TSTBLK • TEST DATA ^ABLE 

♦ 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 
ALL ONES 
WALKING ONES 
WALKING ZEROS 
ALTERNATING ONES AND ZEROS 



SEQ 33 



TSTBLK;: 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
TBLEND--. 



0 

177777 

BITO 

BIT1 

BIT2 

BIT3 

BIT4 

BITS 

B1T6 

BIT7 

BIT8 

BIT9 

BIT10 

BIT11 

BIT12 

BIT13 

BITU 

BIT15 

•CBITO 

*CB2T1 

•CBIT2 

•CBIT3 

*CBIT4 

•CBIT5 

*CBIT6 

'CB1T7 

•CBIT8 

*CBIT9 

•CBIT10 

*CBIT11 

•CBIT12 

•CBIT13 

•CBIT14 

*CBIT15 

125252 

052525 



;ALL ZEROS 
;ALL ONES 

;DATA FOR WALKING ONES 



.-DATA FOR WALKING ZEROS 



.•ALTERNATING ONES. ZEROS 

.•ALTERNATING ONES. ZERO OPPOSITE FROM ABOVE 



CZTUZAO TUSO FRONT END PRT D 
GLOBAL ENVIRONMENT STORAGE 



1317 
131S 
1519 
1320 

1321 003030 

1322 003040 
1325 

1324 
152S 

1526 005060 
1527 

152a 003062 
1529 

1550 005064 

1551 005066 

1552 005070 
1555 005072 

1554 005074 

1555 005076 

1556 005100 
1557 

1558 

1559 005102 

1540 005104 

1541 005106 

1542 005110 
1545 005112 

1544 005114 

1545 005116 

1546 005116 

1547 005120 

1548 005122 

1549 005124 

1550 005126 

1551 005150 
1552 

1555 
1554 
1355 
1556 
1557 
1558 
1559 
1560 

1361 005150 

1362 005330 
1565 

1564 005352 



OOOOOC 100000 
000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
002000 
000000 
000000 
000000 
000000 

000000 
OOOOOd 
000000 
000000 
177777 
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.S8TTL GLOBAL ENVIRONNENT STORAGE 
STORAGE FOR DEVICE REGISTERS 

;OUmv DEVICE REGISTERS. 



SEO 



000000 OUMNV 
000000 



0.100000.0.U 
0.0.0.0.0,0,0.0 



000000 
000000 



OUFLG:: 

NOOEV: : 

TEHP1 : : 

TENP2:: 

XXCOMM:: 

FREE:: 

FRESIZ:: 

FREEHI: 

KTFLG:: 



.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.UORO 0 

.WORD 0 

.WORD 0 

.WORD 0 

.UORD 0 



KTENABLE:: 


.UORD 


0 


PST32W: : 


.WORD 


2000 


SIFLA6:: 


.WORD 


0 


BADDAT:: 


.WORD 


0 


GDDAT:: 


.WORD 


0 


LOOPFL:: 


.WORD 


0 


CTAB:: 






CTABR:: 


.WORD 


0 




.WORD 


0 




.WORD 


0 




.WORD 


0 




.WORD 


-1 



:...FOR HULTI-UNIT CHECKOUT. 



.•"DROPPED UNIT" FLAG. 

; INHIBITS lODE IN "CLEAN-UP". 

.•FLAG TO SAY NO DEVICE. 

;SONE TEMP LOCATION). 

;XXDP« com BLOCK POINTER. 
;1ST FREE NEPIORV ADDRESS... 
;...AND SIZE (IN WORDS). 
:LAST WORD IN FREE SPACE 
;KT11. HEN AVAIL FLAG - 

.WORD 0 * <24K OR NO KT - 

" Hi * >24K and KT. 

•SET BY TEST ROUTINES TO FLAG >28K UNDER 
;32W BLOCK ADDRESS FOR 52K START 

• 

; ACTUAL DATA 
; EXPECTED DATA 

.CONFIGURATION TABLES. 
.-CONFIG WORK. 



TEST 



CTABE: 
ERROR 



:END OF MEN TABLE. 
STATISTICS TABLE (1 WORD PER UNIT). 64 UNITS MAX: 



100000 s 

10XXXX * 

160000 = 

160001 = 
14XXXX s 



UNIT NOT TESTED 

UNIT ONLINE. NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

UNIT DROPPED. NON-EXISTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

UNIT DROPPED. ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABE: 



.BLKU 
.WORD 



64. 
0 



SKIPT: .WORD 



:1-SKIP SUBTEST O^NO SKIP OF SUBTEST 



J 3 



CZTUZAO TU80 FRONT END PRT D 
GLOBAL TEXT MESSAGES 



1366 
1367 
136S 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 

1379 003334 
003334 
003334 
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124 



1380 
1381 
1382 
1383 

1384 003342 
003342 
003342 

1385 
1386 
1387 
1388 
1389 
1390 
1391 

1592 003400 

1593 003420 

1594 005440 

1595 003445 

1596 005447 

1597 005455 

1598 005457 

1599 005465 

1400 005467 

1401 005474 

1402 005501 
1405 005505 

1404 005511 

1405 005516 

1406 005525 

1407 005550 

1408 005555 

1409 005542 
1410 

1411 005550 

1412 005605 
1415 005656 

1414 005675 

1415 005716 

1416 005756 



105 



005440 
005501 



.SBTTL GL06AL TEXT HESSAGES 



THE GLOBAL TEXT SECTION CONTAINS F0RP1AT STATEMENTS, 
MESSAGES. AND A«CII INFORMATION THAT ARE USED IN 
MORE THAN ONE TESi. 



125 



070 



152 



124 



:NAMES OP DEVICES SUPPORTED 

DEVTYP <TU80> 
LSOVTVP: : 

.ASCIZ /TU80/ 
.EVEN 

;TEST DESCRIPTION 

DESCRIPT <CZTUZAO TU80 FRONT END PRT D> 

LSOESC:: 

.ASCIZ /CZTUZAO TU80 FRONT END PRT D/ 
.EVEN 



.-BIT TO ASCII CONVERSION FOR TSSR REGISTER 



005445 
005505 



005447 
005511 



TSSR8IT:: 



123 


105 


000 


IS: 


.ASCIZ 


102 


111 


105 


2$: 


.ASCIZ 


125 


105 


105 


5S: 


.ASCIZ 


122 


115 


122 


4S: 


.ASCIZ 


116 


150 


115 


5S: 


.ASCIZ 


116 


102 


101 


68; 


.ASCIZ 


102 


111 


124 


7$: 


.ASCIZ 


102 


111 


124 


8$: 


.ASCIZ 


125 


125 


122 


9S: 


.ASCIZ 


117 


106 


114 


10$ 


.ASCIZ 


102 


111 


124 


11$ 


.ASCIZ 


102 


111 


124 


12$ 


.ASCIZ 


102 


111 


124 


15$ 


.ASCIZ 


102 


111 


124 


14$ 


.ASCIZ 


102 


111 


124 


15$ 


.ASCIZ 


102 


111 


124 


16$ 


.ASCIZ 










.EVEN 


124 


125 


125 


SFIERR: .ASCIZ 


124 


125 


125 


SFHERB: .ASCIZ 


040 


040 


116 


NXR: .ASCIZ 


045 


101 


040 


NXRX: .ASCIZ 


045 


101 


040 


TSSX: .ASCII 


045 


101 


040 




.ASCIZ 



.WORD 

.UORD 

•SC* 

•BIC* 

•SCE* 

• MIB* 



1$,2$.5$,4$,5$.6$,7$,8$ 
9$,10$.11tJ2$J5$.14$J5S.16$ 



*NXN* 
•NBA* 
•BIT9 
*B1T8 
•SSR' 
•Off 
•BIT5 
•BIT4 
•BIT5 
•BIT2 
•BIT1 
'BITO 



•TSSR EMOR AFTER SOFT INIT* 

•TSSR ERROR AFTER BUS RESET* 

/ NON-EXISTANT DEVICE REGISTER/ 

/SA ADDRESS; 106/ 

/U TSBA.TSSR EXP*D: I06IA.S06XN/ 

/lA TSBA.TSSR RgC*Dt «fl6U.106/ 



CZTU2A0 TU80 FRONT END PRT D 
GLOBAL TEXT MESSAGES 

HI 7 00401 S 04S 1 

U18 004021 040 0 

1419 004050 040 0 

1420 004113 045 1 

1421 004117 040 0 

1422 004154 040 0 

1423 004176 045 V 

1424 004233 040 0 

1425 004305 040 0 

1426 004355 040 0 
1427 

1428 004425 000 

1429 004426 045 1 

1430 004431 045 V 

1431 004465 045 1 

1432 004541 045 1 

1433 004643 122 1 

1434 004711 040 0 

1435 004754 127 1 

1436 005011 124 1 

1437 005104 124 1 
1438 

1439 
1440 
1441 
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SEQ 36 



/XNXA/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

.«SCII /INXA/ 

/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/SA CPU PC: S06U TSBA: 106/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SOFT-INIT" DIDN'T INITIALIZE THE DPU/ 

/ 'BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/XN/ 

/XA EXP'D: X06XA, REC'D: X06/ 

/XNXA EXP'D: X06XA, X06XNU REC'D: XOXA, X06/ 

/XA RE6(U) WRITTEN TO: X06XA RE6(R) READ; EXP'D: X06XA« REC'D: X06/ 
.ASCIZ 'RAM Conttnts Do Net Natch Packtt Stnt' 
/ CONFIG DOESN'T MATCH MFG. MASTER/ 
'WRITE CHARACTERISTICS Ftfltd* 

'TSSR Incorrtct Afttr WRITE CONMiand, Mort BUs S«t Than SSR' 
*TSSR Incorrtct Afttr READ COMMand, Mort Bits Stt Than SSR' 



CZTUZAO TU80 FRONT END PRT D 
GLOBAL ERROR REPORT SECTION 

TA43 
H44 
U4S 
1446 
1447 
1448 
1449 
14S0 



1451 005176 






005176 






1452 005176 






005176 


013746 


003062 


005202 


012746 


003675 


005206 


012746 


000002 


005212 


010600 


005214 


104415 




005216 


062706 


000006 


U53 005222 


004737 


005230 


1454 005226 






005226 






005226 


104423 





1455 
1456 
1457 
1458 
1459 
U60 

1461 005230 005727 

1462 005232 000000 

1463 005234 001402 

1464 005236 004777 177770 

1465 005242 

005242 012746 004426 
005246 012746 000001 
005252 010600 
005254 104415 
005256 062706 000004 

1466 005262 000207 
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SEQ 37 



.SBTTL GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERRO<> REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

CALLS THAT ARE UStD IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



NXRERR:: 



BGNMSG NXRERR 



LI 0002: 



PRINTX 

HOV 

NOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENDMS6 



#NXRX»NODEV 

NODEV.-(SP) 

ffNXRX.-(SP) 

f2.-(SP) 

SP.RO 

CSPNTX 

ff6,SP 

PC. EXTEND 



TRAP CSHSG 



;N0N-EXISTANT DEVICE REGISTER. 
:NOOEV s NEXM ADDRESS. 



; PRINT EXTENSION IF REQUIRED. 



THIS ROUTINE APPENDS A UNIQUE EXTENSION (IF REQUIRED) 
TO ANY OF THE ABOVE ERROR SIGNATURES. 



EXTEND: 
EXTA: 



U: 



TST 
0 

BEQ 

JSR 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



(PC)* 
1$ 

PC.BEXTA 

fNULCR 

iNULCR,-(SP) 

#1,-(SP) 

SP.RO 

CtPNTX 

#4.SP 

PC 



0 s NO EXTENSION. 

APPEND EXTENSION TEXT. 
PRINT A BLANK LINE 



N 3 



CZTUZAO TU60 FRONT END PRT D 
PRITSSR - PRINT TSSR CONTENTS 

U69 

1470 

U71 

U72 

U73 

U74 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 005264 

1488 005264 

1489 005270 010104 

1490 005272 
005272 010446 
005274 012746 006106 
005300 012746 000002 
005304 010600 
005306 104414 
005310 062706 000006 

1491 005314 010400 

1492 005316 004737 016704 

1493 005322 103410 

1494 005324 

005324 012745 006326 
005330 012746 000001 
005334 010600 
005336 104415 
00S340 062706 000004 

1495 005344 010403 

1496 005346 042703 001476 

1497 005352 001434 

1498 005354 012702 002576 

1499 005360 012701 003400 

1500 005364 005703 

1501 005366 001413 

1502 005370 000241 

1503 005372 006103 

1504 005374 103006 

1505 005376 011100 

1506 005400 112022 

1507 005402 001376 

1508 005404 112762 

1509 005412 005721 

1510 005414 000763 

1511 005416 105042 

1512 005420 
005420 012746 
005424 012746 
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.SBTTL PRITSSR - PRINT iSSR CONTENTS 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS. OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

R1 CONTENTS OF TSSR 

SUBORDINATE ROUTINES: 

CNKAMB CHECK FOR AHBIGUOUS CONTENTS 



SEO 38 



000054 177777 



002576 
006277 



PRITSSR: 

SAVRE6 

NOV R1 «R4 

PRINTB #TSSRF0R,R4 

ROV R4,-(SP) 

MOV #T$SRFOR,>(SP> 

MOV «2,-(SP) 

MOV SP^RO 

TRAP CSPNTB 

ADD f6,SP 

MOV R4,R0 

JSR PCCHKAMB 

BCS 5$ 

PRINTX fAMBTSSR 

MOV ffANBTSSR,-(SP) 

NOV fl.-(SP) 

MOV SP.RO 

TRAP CSPNTX 

ADD #4,SP 

5S: NOV R4,R3 

BiC fHlADDR!FATERR!TERCLS 

BEQ 20$ 

NOV fTHPBFR,R2 

MOV fTSSRBlT.RI 

10S: TST R3 

BEQ 15$ 

CLC 

ROL R3 

BCC 13$ 

MOV (R1),R0 

11$: MOVB (R0)*,(R2)« 

BNE 11$ 

MOVB #*,.-1(R2> 

13$: TST (RD* 

BR 10$ 

15$: CLRB •(R2) 

PRINTX #TSSDEF,fTMPBFR 

NOV ITNPBFR,-(SP} 

NOV #TSSPEF.-(SP) 



;SAVE GENERAL REGISTERS 
;SAVE THE TSSR CONTENTS 
;PRINT THE CONTENTS OF TSSR 



.-GET TSSR BACK FOR CHKAHB 
;ARE CONTENTS AMBIGUOUS ? 
.•BRANCH IF NOT 

;SHOW CONTENTS ARE AMBIGUOUS 



.R3 



CONTENTS OF TSSR 

: CLEAR ALL MULTIPLE BIT FIELDS 
NO BITS ARE SET 
TEMPORARY ASCII BUFFER 
ASCII EQUIVALENT OF BITS 
REMAINING BITS TO CONVERT 
BRANCH VHEN ALL ARE DONE 
CLEAR CARRY FOR SHIFT 
SHIFT NEXT BIT TO CARRY 
BRANCH IF BIT NOT SET 
POINTER TO BIT DEFINITION 
MOVE ASCIZ TO BUFFER 
MOVE ALL BITS 

INSERT A GONNA TO TERNINATE 
POINT TO NEXT DESCRIPTION 
GET THE RENAINING BITS 
TERNINATE THE LINE 
PRINT THE BIT DEFINITIONS 



CZTUZAO TU80 FRONT END PRT D HACRO Ml 200 29-NAR-83 
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0OS43O 012746 000002 NOV 

005434 010600 NOV 

005436 104415 TRAP 

G0SA40 062706 000006 ADD 

1513 

1514 005444 010403 20S: MOV 

1515 005446 042703 177761 BIC 

1516 005452 016303 006370 MOV 

1517 005456 PRINTX 
005456 010346 MOV 
005460 012746 006167 MOV 
005464 012746 000002 NOV 
005470 010600 MOV 
005472 104415 TRAP 
005474 062706 000006 ADD 

1518 005500 010403 MOV 

1519 005502 042703 177717 BIC 

1520 005506 001421 BEO 

1521 005510 006203 ASR 

1522 005512 006203 ASR 

1523 005514 006203 ASR 

1524 005516 016303 006730 MOV 

1525 005522 PRINTX 
005522 010346 MOV 
005524 012746 006230 MOV 
005530 012746 000002 MOV 
005534 010600 MOV 
005536 104415 TRAP 
005540 062706 000006 ADD 

1526 005544 012737 000031 002170 MOV 

1527 005552 010403 25S: MOV 

1528 005554 042703 176377 BIC 

1529 005560 001411 BEQ 

1530 005562 PRINTX 
005562 010346 NOV 
005564 012746 006126 NOV 
005570 012746 000002 NOV 
005574 010600 MOV 
005576 104415 TRAP 
005600 062706 000006 ADD 

1531 005604 022704 100210 30S: CMP 

1532 005610 001003 BNE 

1533 005612 012757 006015 002146 MOV 

1534 005620 005737 002146 311: TST 

1535 005624 001003 BNE 

1536 005626 012737 005672 002146 NOV 

1537 005634 013737 002146 005644 310$: MOV 

1538 005642 32$: PRINTB 
00S6A2 012746 005672 NOV 
005646 012746 000001 NOV 
00565? 010600 NOV 
005654 fu4414 TRAP 
0CS656 062706 000004 ADD 

1539 005662 012737 005672 002146 NOV 

1540 005670 000207 RTS 
1541 

1542 005672 045 116 045 EPRT 1; .ASCI 7 
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SEQ i9 



#2,-(SP) 
SP.RO 
CSPNTX 
#*.SP 

R4.R3 

«''CTERCLS,R3 

TC0C0D(R3)«R3 

#TC0ASC,R3 

R3.-(SP) 

#TCOASC.-(SP) 

#2.-(SP> 

SP.RO 

CSPNTX 

ff6.SP 

R4,R3 

»*CFATERR.R3 

25S 

R3 

R3 

R3 

TSFC0D(R3),R3 

#TFCASC.R3 

R3.-(SP> 

#TFCASC.-(SP) 

#2.-{SP) 

SP.RO 

CSPNTX 

«6.SP 

#25..FATFL6 
R4,R3 

#*CHIADDR.R3 
30S 

fTEXASC.RS 

R3,-(SP) 

#TEXASC.-(SP) 

#2,-(SP) 

SP.RO 

CSPNTX 

#6.SP 

«100210,R4 

51 S 

#EPRT5,EPRTSU 

EPRTSV 

51 OS 

fEPRTI .EPRTSV 

EPRTSW,32S*2 

fEPRTI 

fEPRTt.-(SP) 

#1,-(SP> 

SP.RO 

CSPNTB 

#4.SP 

«EPRT1. EPRTSV 
PC 



;GET THE TSSR CONTENTS 

: CLEAR ALL BUT TERNINATION 

;6ET THE TERNINATION CODE MEANING 

.'PRINT THE TERMINATION CODE 



:TSSR CONTENTS AGAIN 

;CLEAR ALL BUT FATAL TERNINATION 

;DON'T PRINT IF ZERO 



:ALINE TERMINATION CODE I^OR INDEX 
;6ET THE FATAL TERMINATION CODE 
.•PRINT THE FATAL TERMINATION CODE 



:DROP THIS UNIT AFTER ERROR MESSAGE 

;GET TSSR CONTENTS 

: CLEAR ALL BUT EXTENDED ADDRESS 

: DON'T PRINT IF ZERO 

:PRINT THE EXTENDED ADDRESS BITS 



: CHECK FOR MEDIA ERROR 

;BR. IF PROBABLY NOT TAPE ERROR 

.•"PROBABLY HEDIA RELETED ERROR - BAD TAPE" 

: CHECK FOR THE SVITCH EMPTY 

;BR. IF SVITCH IS NOT EMPTY 

:SET SVITCH TO DEFAULT 

:PUT REAL SVITCHABLE MESSAGE IN PLACE 

:PRINT THE ERROR MESSAGE 



:RESET TO NORMAL ERROR POINTER 
: RETURN TO CALLER 
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i5h5 005755 


A/. C 
043 


lit) 


Q*) 


CDOT) • 

trnic: 




iSAA 006015 


045 


116 


0*3 


C BO T V • 


Acr 1 7 


OO01O6 


A/ C 


lit) 


AAC 
U*5 


TCCDC AB • 




o46 00ol26 


0<i5 


116 


U*) 


TCW Acr • 




15*7 006167 


Ai C 

043 


4 4^ 
116 


U*> 


TTAACr t 




i5%o 006230 




4 4il 

no 


Q*3 


1 r LAsL : 




1549 006277 


Ai C 

045 


4 41. 
116 


0*3 


Tccncc • 




1550 006326 


AA C 

045 


4 4 

116 


AAC 
U*3 


AMPTCCB • 




4 C C 4 

1551 










• CVCN 


1552 006370 


A AX ^ 4 A 

006410 


AAli W 

006433 


006*01 


TTArAr • 


UABA 

• WUnV 


4 f C V A AX / 4 A 

1553 006410 


116 


4 cv 

157 


lOc 


1»! 


Acr t 9 
•AallA 


1554 006433 


124 




lOc 


9t • 

c«: 


ACT I 7 


4CCC l\AA# 

1555 006461 


»e4 


1*1 


lAn 

10U 




■MaLl A 


1556 006503 


1 Ail 


1 A< 
109 


1 30 


*»• 


Acr 17 


1557 006523 


122 


145 


143 


5$: 


.ASCI2 


1558 006605 


122 


145 


143 


6$: 


.ASCIZ 


4 CCA AAA^Ci. 


4 9C 

125 


1>0 


lOC 


f 


Acr f 7 


I30O OOOfQO 


lOo 


1*1 


1A£ 
10* 


0«* 


Acr 1 7 


4 C A4 

1561 










• CVCN 


1562 

1563 006r3U 


AAiLVAA 
OOO '*lU 


AAA77^ 
UUOr f * 


vUrUU3 




UOBO 
mwvnv 




111 

III 


156 

1 


164 


IS: 


.ASCIZ 


1565 006774 


122 


145 


163 


2t: 


.ASCIZ 


1566 007005 


102 


165 


163 


38: 


.ASCIZ 


1567 007051 


122 


145 


163 


48: 


.ASCIZ 


1568 










.EVEN 
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•XHU •••••CHECK PARITY SWITCH IN TRANSPORT^^» ••IS' 

*mA •••••POSSIBLE MEDIA RELATED ERROR - BAD rAPE^< 

.ASCIZ 'XNSA TSSR « X06' 

.«SCIZ 'XNXA Eittndtd Addrtss Bits « X06' 

.ASlIZ 'XNXA Ttrnlnatlon Class Codt « XT' 

.ASCIZ 'XNXA Fatal Ttrnlnatlon Class Codt « XT' 

.ASCIZ 'XNXA TSSR Bits Stt: XT' 

.ASCIZ 'XNXA TSSR Conttnts Art Ambiguous* 

1$.2$,3$.4$.5$.6$.7$.8t 
'Noma I Ttr«1 nation' 
'Ttrmlnatlon Condition* 
*Tapt Status Altrt* 
'Function Rtjtct' 

'Rtcovtrablt Error - Tapt Position Ont Rtcord Down* 
*Rtcovtrablt Error - Tapt Was Not Novtd' 
'Unrtcovtrablt Error* 
'Fatal ControlUr Error* 



18,28,38,48 

'Inttrnal Diagnostic Fallurt' 
'Rtstrvtd* 

'Bus Inttrfact or Sanity Chtck Error* 
'Rtstrvtd' 



C <! 
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PRIPKT - PRINT THE ADDRESS/CONTENTS OF COfWANO PACKET 



9m 27 



SEO 41 



1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 

1580 007062 

1581 007062 

1582 007066 

1583 C07070 

1584 007074 

1585 007076 

1586 007100 

1587 007102 

1588 007104 

1589 007106 

1590 007110 
007110 
007N2 
007114 
007120 
007124 
007126 
007130 

1591 007134 

1592 007136 

1593 007140 

1594 007142 

1595 007146 

1596 007150 

1597 007152 

1598 007154 
007154 
007156 
007160 
007164 
007170 
007172 
007174 

1599 007200 

1600 007202 

1601 007204 

1602 007206 
007206 
007212 
007216 
007220 
007222 

1603 007226 

1604 007230 

1605 007266 

1606 007323 
1607 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 
010600 
104414 
062706 
005201 
020105 
002762 

012746 
012746 
010600 
104414 
062706 
000207 
045 
045 
045 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COfWANd PACKET 

THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A CONMAND PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT: 



003102 



10$: 



007266 
000003 



000010 
020256 



007230 
000003 



000010 



007323 
000001 



000004 

116 
116 
116 



RO 
R3 
R4 

NOTE: 



PRIPKT : : 

SAVREG 
MOV 
TST 
BNE 
CLR 

nov 

HOV 
ROL 
ROL 

PRINTB 

mv 

MOV 
NOV 
NOV 
NOV 
TRAP 
ADD 
NOV 
BEQ 
NOV 
JSR 
NOV 
CLR 
NOV 

PRINTB 
NOV 
NOV 
NOV 
NOV 
NOV 
TRAP 
ADO 
INC 
CNP 
BIT 

PRINTB 

NOV 

NOV 

NOV 

TRAP 

ADD 

RTS 

045 PKTrRN: .ASCIZ 
045 PKTADD: .ASCIZ 
045 PKTNEU: .ASCIZ 
.EVEN 



15$: 



20$: 
25$: 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



R0,R5 
KTENABLE 
10$ 
R3 

R3.R1 
R4.R0 
RO 
R1 

mTADD.R1.R4 

R4,-(SP) 

RI.-(SP) 

fPKlADD.-(SP) 

#3.-(SP) 

SP.RO 

C$PNTB 

#10,S»» 

R3.R0 

20$ 

R4,R1 

PCSETMAP 

R0.R4 

R1 

(R4)«.R2 

fPKTFRH,R1.R2 

R2,-<SP) 

R1.-(SP> 

#PKTFRH,-(SP) 

#3,-(SP) 

SP.RO 

C$PNTB 

flO.SP 

R1 

R1«R5 
25$ 

fPKTNEU 

ffPKTNEU«-(SP) 

#1,-(SP> 

SP.RO 

C$PNTB 

f4.SP 

PC 

'INIA Picktt 
*INIA P«cktt 
'ININIA * 



.•SAVE THE REGISTERS 
:SAVE NO. OF WORDS IN PACKET 
; ABOVE 28k UNDER TEST? 
:BR IF YES 

;SET HIGH ORDER ADDRESS TO 0 
;COPY HIGH ORDER ADDRESS 
;GET LOWER ADDRESS 
;SHIFT BIT 15 INTO C BIT 
;AND INTO HIGH ORDER. 
.•PRINT PACKET ADDRESS 



;GET HIGH ORDER ADDRESS 

;BR IF NOT ABOVE 28K. 

;6ET LOW ORDER ADDRESS 

;SETUP PAR6 NAPPING FOR 18 BIT ADDRESS 

.'GET RETURNED PAR6 ADDRESS BIAS 

:SAVE WORD NUNBER 

:GET PACKET CONTENTS 

; PRINT THE DATA 



:NEXT WORD NUNBER 
.•DONE ALL PACKET WORDS? 
:LOOP TILL ALL DONE 
;JUST A COUPLE NEW LINES 



.•RETURN 
Word fXDIXA s X06' 
Addrtss « X0U05' 



D 4 



CZTUZAO TU80 FRONT END PfiT D K^CRO HI 200 
PRIBXOR - PRINT EXP9, R£CV AND XOR BYTE 



1609 
1610 
1611 
1612 
1613 
16U 
161 S 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 

1627 007334 

1628 007334 

1629 007340 

1630 007342 

1631 007352 

1632 007356 

1633 007360 

1634 007362 

1635 007364 
007364 
007366 
007370 
007372 
007376 
007402 
007404 
007406 

1636 007412 

1637 007414 
1638 

1639 007416 

1640 

1641 
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.SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 



SCO 42 



PRINT EXPECTED DATa. RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



R1 
R2 



OUTPUT: 



010203 

012700 177400 
040001 
040002 
040003 

010346 
010146 
010246 

012746 007416 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



PO 



PRIBXOR:: 

SAVREG 

NOV 

XOR 

NOV 

BIC 

BIC 

BIC 

PRINTS 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

NOV 

RTS 



045 



116 



045 XORBFOR: 



.EVEN 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



R2,R3 
R1,R3 

fC<377>,R0 
R0.R1 
R0«R2 
RO.RS 

fX0RBF0R,R2.Rl 

R3.-(SP) 

R1.-($P) 

R2.-<SP) 

fX0RBF0R,-(SP> 

f4.-(SP> 

SP.BO 

CtPNTB 

f12.SP 

R3.R0 

PC 



:SAVE THE REGISTERS 
: EXPECTED DATA 
;F0RN THE EXCLUSIVE OR 
;BVTE HASK 
;SAVE LOU BYTE RECV 
:$AVE LOU BYTE EXPD 
:$AVE LOU BYTE XOR 
,RS ;PRINT THE NESSAGE 



;R0 HAS XOR ON RETURN 
;RETURN TO CALLER 



.ASCIZ *INU EXPD: X03U RECV: X03ZA XOR: Z03* 



E A 



CZTUZAO TU80 FRONT END PRT D 
PRIXOR - PRINT EXPO. RECV AND 



1643 
1644 
164S 
1646 
1647 
1648 
1649 
16S0 
1651 
16S2 
1653 
16S4 
1655 
1656 
1657 
1658 
1659 
1660 

1661 007464 

1662 007464 
1653 007470 

1664 007472 

1665 007502 
007502 
007504 
007506 
007510 
007514 
007520 
007522 
007524 

1666 007530 

1667 007532 
1668 

1669 007534 
1670 



MACRO HI 200 
XOR 
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.SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 



PRINT EXPECTED DATA, RECEIVED DATA. AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



R1 
R2 



OUTPUT: 



010203 



010346 
010146 
010246 

012746 007534 
012746 000004 
010600 
104414 

062706 000012 

010300 

000207 



045 



116 



045 



RO 



PRIXOR:: 

SAVREG 

MOV 

XOR 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

RTS 

XORFOR: .ASCIZ 
.EVEN 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



;SAVE THE REGISTERS 
R2.R3 ;EXPECTED DATA 

R1,R3 ;FOr". THE EXCLUSIVE OR 

#XORFOR.R2.R1.R3 .'PRINT THE MESSAGE 
R3.-(SP> 
R1.-<SP> 
R2.-(SP) 
f XORFOR. -(SP) 
f4.-(SP) 
SP.RO 
CSPNTS 
f12.SP 

R3.R0 :R0 HAS XOR ON RETURN 

PC ; RETURN TO CALLER 

*XNXA EXPD: I06XA RECV: X06XA XOR: X06' 



f 4 
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sea 44 



1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

168S 

1686 007602 

1687 007602 

1688 007606 
1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 007610 

1705 G07610 

1706 007614 
007614 
007616 
007622 
007626 
007630 
007632 

1707 007636 
1708 

1709 007640 

1710 

1711 

1712 

1713 

17U 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 



.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EOUlVALliNT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



RO OCTAL VALUE TO CONVERT 

R1 TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



000207 



SAVRE6 
RTS PC 



.-SAVE THE REGISTERS 
.■RETURN TO CALLER 



.SBTTL PRIRAM - PRIN1 RAH ADDRESS 



PRINT CONTROLLER RAH ADDRESS. 

TNIS ROUTINE IS NORMALLY CALLED ONLY FROH PRINT ROUTINES. 



INPUTS: 



R4 



RAH ADDRESS 



PRIRAH: 



010446 

012746 007640 
012746 000002 
010600 
104414 

062706 000006 
000207 



SAVREG 

PRINTB fRANF0R.R4 

HOV R4.-(SP) 

MOV fRAMFOR.-(SP) 

HOV f2.-(SP) 

HOV SP.RO 

TRAP CiPNTB 

ADD «6.SP 

RTS PC 



;SAVE R1-RS UNTIL NEXT RETURN 
.•PRINT RAH ADDRESS IN ERROR 



.•RETURN 



045 



116 



045 RAHFOR: .ASCIZ 'XNU CONTROLLER RAH ADDRESS = X06' 
.EVEN 



.SBTTL PRIADO - PRINT HEHORV ERROR ADDRESS 



PRINT HEHORY ADDRESS 

THIS ROUTINE IS NORHALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



ERRHI - HIGH ORdER ADDRESS 
ERRLO ' LOW ORDER ADDRESS 



CZTUZAO TUBO FRONT END PRT D NACHO N1200 
PRIADD - PRINT HEHORY ERROR ADDRESS 



6 4 
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SEQ 45 



1723 
1724 

1725 007702 

1726 007702 

1727 007706 

1728 007712 

1729 007716 

1730 007720 

1731 007722 

1732 007724 
007724 
007726 
007730 
007734 
007740 
007742 
007744 

1733 007750 
1734 

1735 007752 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 010016 

1752 010016 

1753 010022 

1754 010026 

1755 010032 

1756 010034 

1757 010036 

1758 010040 
010040 
010042 
010044 
010050 
010054 
010056 
010060 

1759 010064 

1760 010066 
1761 



PRIADD: 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



002202 
002204 



007752 
000003 



000010 
116 



SAV^EG 




•SAVE R1-R5 LMTIL NEXT RETURN 


MOV 


ERRnI ro 


*GET HIGH ADDRESSS 


MV 


ERRLO R1 


•GET LOy ADDRESS 


MOV 


R1 .R2 


•COPY LOU ADDRESS 


ROL 


R1 


•SHIFT BIT 15 TO C BIT 


ROl 


RO 


; SHIFT INTO HIGH ORDER 


PRINT8 


fPRlA0,R0,R2 


: PRINT MEMORY ADDRESS IN ERROR 


MOV 


R2,-(SP) 




MOV 


W,-(SP) 




NOV 


fPRlAO.-(SP) 




NOV 


#3.-(SP) 




MOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


ilO.SP 




RTS 


PC 


.•RETURN 



045 PRIAO: 



.ASCIZ 
.EVEN 



*mA MEMORY ERROR ADDRESS « S01X05' 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT NENORY ADDRESS 

THIS ROUTINE IS NOBNALLY CALLED ONLY FROM PRINT ROUTINES. 



INPLICIT INPUTS 



ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOU ORDER ADDRESS 



PRITAT!;: 



013700 002202 

013701 002204 
010102 
006101 
006100 

010246 
010046 

012746 010066 
012746 000003 
010600 
104414 

062706 000010 
000207 

045 116 



045 PRITO: 



SAVREG 




:SAVE R1-R5 UNTIL NEXT RETURN 


NOV 


ERRHI «R0 


:6Er HIGH ADDRESSS 


NOV 


ERRLO.RI 


;GET LOU ADDRESS 


NOV 


R1,R2 


:COPY LOW ADDRESS 


ROL 


R1 


;ShIFT BIT 15 TO C BIT 


ROL 


RO 


; SHIFT INTO HIGH ORDER 


PRINTB 


«PRITO.R0.R2 


; PRINT NENORY ADDRESS IN ERROR 


NOV 


R2,-(SP) 




NOV 


RO.- (SP> 




NOV 


ffPRITO,-(SP> 




NOV 


f3.-(SP) 




NOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


flO.SP 




RTS 


PC 


'RETURN 


.ASCIZ 


*XNSA NENORY 


TEST ADDRESS s 101X05* 


.EVEN 







H 4 
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SEO 46 



1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

1798 010130 

1799 010130 

1800 010134 

1801 010142 

1802 010130 

1803 010152 

1804 010154 

1805 010160 

1806 010162 

1807 010166 

1808 010172 

1809 010200 

1810 010204 

1811 010210 

1812 010214 

1813 010216 
010216 
010222 
010224 
010230 
010232 
010236 



.SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMNAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COWMND (FORWARD OR REVERSE) 



INPUT: 



R3 NUMBER OF RECORDS TO BE SPACED OVER 

Bni5 CONTROLS DIRECTION 

BIT15 * 0 IS FORWARD 

BIT15 * 1 IS REVERSE 
R5 FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY 



RO 



SET - SPACE RECORDS COfVIAND OK 
CLR - SPACE RECORDS FAILED 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT: 



TAPE MAS BEEN MOVED 



012737 
012737 
005703 
100403 
010337 
000407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 







jsiDE 


EFFECTS: 








SPACE: 


• 










* SAVRE6 




000764 


010320 




MOV 


f500.,SDELAY 


140010 


010310 




MOV 


#140010.808 








TST 


R3 








BMI 


5$ 


010312 






MOV 


R3.90S 
10$ 


100000 




5t: 


BR 
BIC 


fBITIS.RS 


010312 






MOV 


R3.90$ 


000400 


010310 




BIS 


fBIT8«80t 


010310 




108: 


MOV 


i80S,R4 


177776 






MOV 


R4,TSDB(R5) 


017110 




15S: 


JSR 


PCUAITF 








BCS 


20$ 








DELAY 


250 


000250 






MOV 


#250, (PC)* 








.WORD 


0 


002116 






MOV 


L$DLY,(PC)* 








.WORD 


0 


177772 






DEC 


-6<PC) 








BNE 


.-4 



;SAVE THE GENERAL REGISTERS 
;SET UP DELAY 

;SET UP COMMAND, SPACE FORWARD 

; CHECK FOR DIRECTION 

;BR, If REVERSE INDICATED 

:LOAD UP NUMBER OF RECORDS TO SPACE 

;G0 DO COMMAND 

; CLEAR DIRECTION BIT 

;LOAft UP NUMBER OF RECORDS TO SPACE 

;SET REVERSE BIT IN COMMAND PACKET 

;SET UP R4 WITH PACKET ADDRESS 

;SEND our COMMAND 

;WAIT FOR SSR 

:BR. IF SSR IS SET AND OK 

:DELAY ABOUT .25 SECONDS 



I 4 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMNAND 



010240 
010244 

1814 010246 

1815 010252 

1816 010254 

1817 010256 

1818 010262 

1819 010266 

1820 010270 

1821 010272 

1822 010274 

1823 010276 

1824 010300 

1825 010302 

1826 010302 

1827 010304 



005367 177756 
001367 

005337 010320 

001356 

000411 

016501 000000 

012702 000200 

020201 

001401 

000402 

000261 

000401 

000241 

010400 
000207 





DEC 


-22(PC) 






BNE 


.-20 






DEC 


SDELAY 


BUNP DELAY COUNTER DOWN 




BNE 




BR, IF ACRE DELAY 


20»: 


BR 


601 


BR IF TROUBLE CARRY « CLEAR 


HOV 


TSSR(R5)«R1 


'READ TSSR 




NOV 


fSSR<R2 


SET UP EXPECTED 


CNP 


R2#R1 


'ARE THEY OK 




BcO 


40t 


;BR. IF EQUAL * OK 


40S: 




60S 


; TROUBLE EXIT 


SEC 




;SET CARRY NO TROUBLE 




BR 


70S 


;EXIT 


60S: 


CLC 




; CARRY CLEAR * ERROR 


70t: 










NOV 


R4.R0 :PASS PACKET ADDRESS 




RTS 


PC .-RETURN 



J 4 
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SPACE • SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



1829 
1830 
1831 
1832 
1833 

1835 010306 

1837 

1838 

1839 010310 
1840 

1841 010312 
:842 010314 
010316 
184v 010320 
1845 



000000 

000000 
000000 
000000 
000000 



.•PACKET FOR SPACE COMMAND 

.BLKB 10-<.-TUV2Al7> 

•COMMAND WORD 
80$: .WORD 

.'NUMBER OF RECORDS TO BE SPACED OVER WORD 
90$: .WORD 

.WORD 

.WORD 

SDELAY: .WORD 0 ;DELAV COUNTER 

.EVEN 



K k 



CZTUZAO TU80 FRONT END PRT D MACRO ni200 
URTCHR - WRITE CHARACTERISTICS CONNANO 



1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1866 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 010322 

1879 010322 

1880 010326 

1881 010332 

1882 010336 

1883 010342 

1884 010344 

1885 010346 

1886 010352 

1887 010356 

1888 010362 

1889 010364 

1890 010370 

1891 010372 

1892 010374 

1893 010376 

1894 010402 

1895 010404 

1896 010410 

1897 010412 

1898 010414 

1899 010416 

1900 010422 
1901 

1902 
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.SBTTL URTCHR - WRITE CHARACTERISTICS COMMAND 



SEO 49 



005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 



002174 
177776 
017224 



000000 
000200 
000100 

000100 



000010 
002716 

000000 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT: 



R4 ADDRESS OF PACKET FROM TEST 

R5 FIRST DEVICE I'NIBUS ADDRESS 
REQUIRES A CALL TO S0FIN2T BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW s BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



WRTCHR: 



10$: 



20$: 



25$: 



40$: 



60$: 
70$: 



SAVREG 




;SAVE THE GENERAL REGISTERS 


CLR 


BENBSW 


;CLEAR BUFFcR ENABLE SWITCH 


MOV 


R4.TSDB(R5) 


(SEND OUT COMMAND 


JSA 


PC.CHKTSSR 


;WAIT FOR SSR 


BCS 


20$ 


;BR, IF SSR IS SET AND OK 


BR 


60$ 


;BR IF TROUBLE CARRY = CLEAR 


MOV 


TSSR(RS).R1 


IREAD TSSR 


MOV 


#SSR,R2 


;SET UP EXPECTED 


BIT 


fOFL.RI 


;UAS OFF LINE SET IN TSSR 


BEO 


25$ 


;BR. IF NO OFL SET 


BIS 


#0FL,R2 


;MAKE THEM LOOK ALIKE 


CMP 


R2.R1 


;ARE THEY OK 


BEO 


40$ 


;BR. IF EQUAL « OK 


BR 


60$ 


•TROUBLE EXIT 


ADD 


f8..R4 


•POINT TO WRT CHARA DATA PACKET 


MOV 


(R4).R3 


•GET ADDRESS OF MESSAGE BUFFER 


MOV 


R3.MESBFA 


; STORE FOR PRINT ROUTINES 


SEC 


•SET CARRY NO TROUBLE 


BR 


70$ 


•EXIT 


CLC 




CARPY CLEAR » ERROR 


MOV 


TSSR(R5).R0 


RETURN TSSR CONTENTS 


RTS 


PC 


•RETURN 



L 4 



CZTUZAO TU80 FRONT EMO PRT 0 MACRO m200 
REyiND - POSITION TAPE (REWIND) COfWANO 

1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
19U 
191 S 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 

1932 010424 

1933 010424 

1934 010430 

1935 010434 

1936 010440 

1937 010444 

1938 010450 

1939 010452 
010452 
010456 
010460 
010464 
010466 
010472 
010474 
010500 

1940 010502 

1941 010504 

1942 010506 

1943 010510 

1944 010512 
1945 
l946 

1948 010514 

1950 010520 

1951 010520 

1952 010522 
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.SBTTL REUINO - POSITION TAPE (REWIND) COMMAND 



THIS ROUTINE WILL McUIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 
JSR PC, REWIND 



SEO 50 



INPUT: 



RS 



OUTPUT 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



REWIND: : 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 

005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



1020;0 
000000 



010520 
177776 
000550 
017110 



000372 
002116 
177772 
177756 



10S: 



20S: 



SAVREG 

MOV 

NOV 

NOV 

JSR 

BCS 

DELAY 

NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

NOV 

RTS 



fRWPACK,R4 

R4«TSD8(R5) 

f360.,R3 

PCWAITF 

20$ 

250. 

#250., (PC)* 
0 

L»DLt.(PC)* 
0 

-6(PC) 
.-4 

-22(PC) 

.-20 

R3 

lot 

R4,R0 
PC 



;SAVE R1>R5 UNTIL NEXT RETURN 

:GET PACKET ADDRESS 

;SEND PACKET ADDRESS TO EXECUTE 

:ENOUGN TINE FOR 2400* REEL TO REWIND 

;WAIT FOR SSR TO SET 

:LEAVE WHEN SSR IS SET 

:WAIT FOR .25 SECONDS 



RWPACK: 



.8LKB 10-<.-TUV2At7> 



.WORD 
.WORD 



102010 
0 



:BUNP COUNTER DOWN 
:KEEP GOING 

; CLEAR CARRY TO SET ERROR 
.PASS THE PACKET ADDRESS 
: RE TURN 



:POSTION CONMAND (REWIND) 
:NOT USED 



n 4 



CZTUZAO TU80 FRONT END PRT D MACRO HI 200 
CKRAM - COMPARE RAM TO I/O PACKET 



19S4 

19S5 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 010524 

1983 010524 

1984 010530 

1985 010534 

1986 010540 

1987 010542 

1988 010546 

1989 010552 

1990 010556 

1991 010562 

1992 010566 

1993 010570 

1994 010572 

1995 010574 

1996 010576 

1997 010602 

1998 010604 

1999 010606 

2000 010610 

2001 010612 

2002 010614 

2003 010616 

2004 010624 
2005 
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.SBTTL CKRAM - COMPARE RAM TO 1/0 PACKET 



SEO 51 



ROUTINE TO READ THt FIRST 8 BYTES FROM RAM 
MEMORY MNO COMPARE THIS DATA TO A COMMAND PACKET. 



INPUT : 



R4 
R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAH DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAHDATA IS FILLED WITH THE 
DATA HELD IN RAH. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



CKRAM: : 



012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



002206 
000020 

017224 
017224 
177777 
017224 
177776 



000027 



10$: 



20$: 



000010 002246 



30$: 
50$: 



SAVRE6 




rSAVE THE GENERAL REGISTERS 


NOV 


fRAMOATA.Rl 


; ADDRESS TO SAVE THE RAM DATA 


NOV 


fRNPKTBEG«R2 


;BYTE ADDRESS OF FIRST RAH DATA 


CLR 


R3 


; CLEAR THE ERROR FLAG 


JSR 


PCCHKTSSR 


lUAIT FOR SSR 


JSR 


PC.CHKTSSR 


;UAIT FOR SSR TO SET 


HOVB 


R2,TSDBH(R5) 


; SELECT NEXT RAH ADDRESS 


JSR 


PCCHKTSSR 


;UAIT FOR SSR TO SET 


NOVB 


TSBAL(R5>,(R1) . 


;READ THE RAH DATA 


CMPB 


(R1)^,(R4)^ 


; COMPARE TO EXPECTED 


BEQ 


20$ 


iBRANCH IF OK 


INC 


R3 


;SET ERROR FLAG 


INC 


R2 


; ADDRESS OF NEXT RAM LOCATION 


CMP 


R2.fRHPKTEND 

loi 


; REACHED END YET ? 


BLE 


iBRANCH TILL ALL READ 


TST 


R3 


;UAS AN ERROR FOUND ? 


BEQ 


30$ 


;BRANCH IF NOT 


CLC 




; CLEAR CARRY TO SHOW ERROR 


BR 


50$ 


;AND EXIT 


SEC 




;SHOU GOOD COMPARE 


MOV 


f8..RAHSIZ 


; SETUP RAHSIZ FOR PRAMPKT ROUTINE 


RTS 


PC 


; RE TURN 



N 4 



CZTUZAO TU80 FRONT END PRT 0 MACRO M1200 
RAMER • READ AND DISPLAY SELECTED RAM 



2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

202S 

2026 

2027 010626 

2028 010626 

2029 010632 

2030 010636 

2031 010642 

2032 010646 

2033 010652 

2034 010656 

2035 010662 

2036 010666 

2037 010672 

2038 010676 

2039 010700 

2040 010704 

2041 010710 

2042 010712 

2043 010716 
010716 
010720 
010722 
010726 
010732 
010734 
010736 

2044 010742 

2045 010746 

2046 010752 

2047 010754 

2048 010756 

2049 010762 
010762 
010764 
010770 
010774 
010776 
011000 

2050 011004 
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.SBTTL RAHER - READ AND DISPLAY SELECTED RAM 



SEO 52 



ROUTINE TO READ ^HE SELECTED RAN LOCATIONS 
INPUT: 

R5 FIRST DEVICE UNIBUS ADDRESS 
CONSOLE WILL ALSO BE PRINTED TO 

IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM. 

SIDE EFFECTS: 



RAMER: 











011019 


nuv 




01 ?701 


00990A 


Hnu 

nwV 


ilDAIIftATA D1 


01 5702 


011010 


Hnu 
nuw 


RAIiUI n D9 

nnnnLi/fiic 


01 ^70'f 






BANC 17 OX 


0047X7 

W"t f J f 


01 7??4 


lOt* KR 


pr rurT«B 


1 1 MCvJ 


177777 


HUVD 




004737 


01 7224 


JSR 


PC.CHKTSSR 


116521 


177776 


HOVB 


TSBAL(R5).(R1)« 


062702 


000001 


20S: ADD 


f1*R2 


077313 




SOB 


R3J0t 


013704 


002246 


MOV 


RAMSI2,R4 


013702 


011010 


MOV 


RANHLD,R2 


060204 




ADD 


R2,R4 


162704 


000001 


SUB 


«1,R4 






PRINTX 


#RAMI0P.R2,R4 


010446 




MOV 


R4.-(SP) 


010246 




MOV 


R2.-(SP) 


012746 


011014 


MOV 


«RAHIOP«-(SP) 


012746 


000003 


MOV 


#3.-CSP) 


010600 




MOV 


SP.RO 


104415 




TRAP 


CtPNTX 


062706 


000010 


ADD 


#10. SP 


012701 


002206 


MOV 


#RAMDATA,R1 


013703 


002246 


MOV 


RAHSIZ,R3 


005004 




30S: CLR 


R4 


112104 




MOVB 


(R1)«,R4 


042704 


177400 


BK 


#1 77400. R4 






PRINTX 


#RANPD.R4 


010446 




MOV 


R4.-(SP) 


012746 


011065 


NOV 


#RAIIPD«-(SP) 


012746 


000002 


MOV 


f2,-(SP) 


010600 




MOV 


SP.RO 


104415 




TRAP 


C$PNTX 


062706 


000006 


ADD 


ff6,SP 


077316 




SOB 


R3.30t 



SAVE THE GENERAL REGISTERS 

RESET R5 TO FIRST DEVICE REGISTER 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF THE FIRST RAM DATA 

SET THE SIZE OF THE READ UP 

UAIT FOR YHE SSR TO SET 

SELECT NEXT RAM ADDRESS 

UAIT FOR SSR TO SET 

READ THE RAN DATA 

ADDRESS OF THE NEXT RAM LOCATION 

NUMBER OF LOCATIONS COUNTER 

GET THE RAM SIZE 

GET THE STARTING RAM ADDRESS 

CALCULATE THE END ADDRESS 

CORRECT VALUE OF PRINTOUT 

RAM ADDRESS « 10 - 17. ETC. 



ADDRESS OF WHERE RAM DATA IS 

THE SIZE OF THE RAM FIELD READ 

NO EXTRA DATA LEFT OVER 

PICK UP BYTE OF RAM DATA 

GET RID OF SIGN EXTEND 

"010 211 111 222 377 000 123 134 ETC." 



;tOQP UMTU ALL PBIMTgP 



SEQ S3 

CZTUZAO TU80 FRONT END PRT 0 MACRO HI 200 29-nAR<83 13:43 PAGE 36-1 
RAMER - READ AND DISf'LAV SELECTED RAM 

2051 011006 000207 SOS: RTS PC ; RE TURN 

20S2 

2053 011010 000000 RAMHLD: .UORD 0 .-RAN ADDR HOLDER 1ST ADDRESS 

2054 011012 000000 RAMRSH: .yORD 0 ; HOLDS RS FOR LATER 

2055 0110U 045 116 045 RAMIOP: .ASCIZ 'SNXA Ran Address (Octtl) » I03IA - X03XN* 

2056 011065 045 101 040 RAMPD: .ASCIZ *U X03U • 

2057 .EVEN 
2058 



c s 



CZTUZAO TU80 FRONT END PRT 0 MACRO H1200 29-HAR-83 15:A5 
CKRAHZ - COMPARE RAM TO I/O CHARACTERISTICS DATA 



PACE 37 



SEO 54 



2060 

2061 

2062 

2065 

2064 

206S 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2075 

2074 

207S 

2076 

2077 

2078 

2079 

20S0 

2081 

2082 

2085 

2084 

2085 

2086 

2087 011100 

2088 011100 

2089 011104 

2090 011110 

2091 011114 

2092 011116 
2095 011122 

2094 011126 

2095 011132 

2096 011136 

2097 011142 

2098 011144 

2099 011146 

2100 01 11 SO 

2101 011152 

2102 011160 

2103 011164 

2104 011166 

2105 011170 

2106 011172 

2107 011174 

2108 011176 

2109 011200 
2110 



012701 
012702 
005003 
004737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
012737 
020227 
0037S6 
005703 
001402 
000241 
000401 
000261 
000207 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



ROUTINE TO READ ^HE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
RS 



ADDRESS Cr THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM HATCHES PACKET 

CLR - RAM DOES NOT NATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IK RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRANPKT ROUTINE 



SIDE EFFECTS: 



CKRAN2:: 



002206 
000167 

017224 
017224 
177777 
017224 
177776 



000010 
000176 



10$: 



002246 



20%: 



27$: 



30$: 
50$: 



SAVRE6 




SAVE THE GENERAL REGISTERS 


nov 


#RAM0ATA*R1 
ffRMCNBEG.R2 


ADDRESS TO SAVE THE RAM DATA 


MOV 


BYTE ADDRESS OF FIRST RAH DATA 


C'.R 


R3 


CLEAR THE ERnOR FLAG 


JSR 


PCCHKTSSR 


,UAIT FOR SSR 


JSR 


PC.CHKYSSR 


;WAIT FOR SSR TO SET 


Mova 


R2,TSDBH(R5} 


; SELECT NEXT RAH ADDRESS 


JSR 


PC.CHKTSSR 


;yAIT FOR SSR TO SET 


HOVB 


TSBAL(RS),(R1) , 


;READ THE RAH DATA 


CMPS 


(R1)«,(R4)« 


; COMPARE TO EXPECTED 


BEQ 


20$ 


IBRANCH IF OK 


INC 


R3 


;SET ERROR FLAG 


INC 


R2 


{ADDRESS OF NFXT RAH LOCATION 


NOV 


f8..KAMSI2 


; ASSUME NORMAL NOT SET 


CMP 


R2.fRHCHEND-2 
10$ 


; REACHED END VET ? 


BLE 


{BRANCH TILL ALL READ 


TST 


R3 


;UAS AN ERROR FOUND ? 


BEQ 


30$ 


; BRANCH IF NOT 


CLC 




■CLEAR CARRY TO SHOW ERROR 


BR 


S0$ 


;AND EXIT 


SEC 




;SHOU GOOD COMPARE 


RTS 


PC 


{RETURN 



D 5 
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2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

212S 

2126 

2127 

21 2S 

2129 

2130 

2131 

2132 

2133 

2134 

21 3S 

2136 

2137 011202 

2138 011202 

2139 011206 

2140 011212 

2141 011216 
214? 011222 

2143 011224 

2144 011230 

2145 011232 

2146 011234 

2147 011236 

2148 011240 

2149 011244 

2150 011250 

2151 011252 

2152 011254 

2153 011256 

2154 011262 

2155 011266 

2156 011270 

2157 011276 

2158 011300 

2159 011304 

2160 011306 

2161 011310 

2162 011312 

2163 011314 

2164 011516 

2165 011320 
2166 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
011164 
022221 
001401 
005203 
062704 
020427 
003764 
032765 
001403 
020427 
003755 
005703 
001402 
000241 
000401 
000261 
000207 



.SBTTL CKNSG - COMPARE WRiTE CHAR. MESSAGE SUFFERS 



ROUTINE TO C0NPA»F. A WRITE CHARACTERISTICS EXPt AND RECV 
BUFFER. THE EXPECTkO AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



OUTPUT : 



RO 
R1 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDi«ESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T NATCH 



IMPLICIT OUTPUT: 

EXPHSG 
RECNSG 
RCVHIADD 
RCVLOADD 



CXNSG:: 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



002250 
002252 
003102 

020256 



002266 
002432 



000002 
000014 

000200 000012 
000016 



10S: 



15S: 



25S: 



50$: 



55S: 
60S: 



SAVREG 


RO.RCVHIAOD 


iSAVE R1-R^ UNTIL NEXT RETURN 


NOV 


;SAVE RECV HIGN ADDRESS 


MOV 


R1 .RCVLOAO 


;SAVE RECV LOW ADDRESS 


TST 


KTENABLE 


; TESTING ABOVE 28iC? 


BEQ 


lOt 


;BR IF NO 


JSR 


PC.SETNAP 


; RETURN ADDRESS BIASED TO PAR6 IN RO 


NOV 


RO.RI 


;GET RETURNED ADDRESS BIASED TO PAR6 


CLR 


R4 


IWORD IN BUFFER 


CLR 


n 


[CLEAR ERROR SEEN FLAG 


NOV 


R2,RS 


;GET EXPD BUFFER ADDRESS 


NOV 


CR2),EXPNSG(R4) , 


;SAVE EXPO FOR ERROR REPORT 


NOV 


(Rl),ftECMSG(R4) , 


;SAVF RECV FOR ERROR REPORT 


CMP 


(R2)^,(R1)« 


;EXPD EQUAL RECV? 


BEQ 


25$ 


BR IF YES 


INC 


RS 


•SET ERROR SEEN FLAG 


ADD 


i2«R4 


.POINT TO NEXT WORD ADDRESS 


CNP 


R4.f14 
15i 


•DONE FIRST 7 WORDS? 


BLE 


,BR IF NO 


BIT 


tfX2.EXTF.XST2(R5] 


l.-IS EXTENDED FEATURES ScT IN EXPD? 


BEQ 


50$ 


;BR IF NO 


CNP 


R4,ff16 


•DONE EXTENDED FEATURES WORD? 


BLE 


15$ 


•BR IF NO 


TST 


R3 


;ANV ERRORS SEEN? 


BED 


55$ 


>BR IF NO 


CLC 




SET FAILURE 


BR 


60$ 




SEC 




SET SUCCESS 


RTS 


PC ! 


RETURN 



E S 



C2TUZA0 TU80 fHONT END PUT 0 HACftO HUOO 
rKHSG2 - CQPIPME EIPD RECV HESSAtt BUfFERS 



21M 

2H9 

2170 

2171 

2172 

2:73 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2195 

2194 

2195 

2196 

2197 

2198 

2199 

2200 



2201 
2202 
2?03 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
221s 
2214 
2215 
2216 
2217 
2218 
2219 



011322 
011322 
011326 
011332 
011334 
011340 
011340 
011344 
011350 
011352 
011354 
011360 
011364 
011370 
011374 
011376 
011402 
011404 
011406 
011410 
011414 
011420 
011422 
011424 
011426 
011432 
011434 
011436 
011440 
011442 
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.S8TTL CKflS62 • COftPARE EXPO RECV NESSA6E BUFFEAS 



SCO 56 



ROUTINE TO COflPA»F. AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTfcO AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT; 



RO 
R1 
R2 
R3 



RECV MESSAGE BUFFER NIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOU ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBED OF BVTFS TO COMPARE 



OUTPUT : 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADO 



CKMS62: 



BUFFER IS SET TO EXPD DATA 
BUFFER !S SET TO ?ICV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOU ORDER ADDRESS OF RECV 



020327 


000144 




savreg 


.•SAVE R1-R5 UNTIL NEXT RETURN 




CMP 


R3,«RECHSG-EXPMS6:aBD IS COUNT ABOVE MAX ALLOUED? 


003412 






BLE 


58 :aaD br if no 


012703 


000144 




MOV 
PRINTF 


«RECHS6-EXPMSG«R3;BaD 
fOEBUGMSG :aaD 


012746 


011454 




MOV 


fDE8UGNS6.-(SP) 




012746 


000001 




MCV 


i1,-(SP> 




010600 






MOV 


SP.RO 




104417 






TRAP 


CSPNfF 




062706 


000004 




ADD 


f4.SP 




010037 


002250 


5$: 


MOV 


RO, RCVHIADD 


;SAVE RECV HIGH ADDRESS 


010137 


002252 




MOV 


R1 .RCVLOAD 


;SAVE RECV LOU ADDRESS 


005737 


003102 




TST 


KTENABLE 


; TESTING ABOVE 28K? 


001403 






BEQ 


108 


;BR IF NO 


004737 


020256 




JSR 


PCSETNAP 


rRETURN ADDRESS BIASED TO PAR6 IN RO 


010001 






MOV 


R0,R1 


;6ET RETURNED ADDRESS BIASED TO PAR6 


905004 




lot: 


CLR 


R4 


lUORD IN BUFFER 


005005 
111264 






CLR 


R5 


; CLEAR ERROR SEEN FLAG 


002266 


15*: 


MOVB 


(R2),EXPMSG(R4) . 


;SAVE EXPO FOR ERROR REPORT 


111164 


002432 




MOVB 


(R1),RECMSG(R4) . 


;SAVE RECV FOR ERROR REPORT 


122221 






CMP8 


(R2)«,(R1)« 


■EXPO EOUAL RECV? 


001401 






BEQ 


25t 


-BR IF TE$ 


005205 






INC 


R5 


-S2T ERROR SEEN FLAG 


062704 


000001 


25S: 


ADD 


#1 ,R4 


POINT TO NEXT BYTE 


020403 






CMP 


R4,R3 


DONE ALL BYTES? 


002001 






B6E 


508 


'BR IF YES 


000764 






BR 


15$ 


DO NEXT BYTE 


005705 




50i: 


TST 


RS 


ANY ERRORS SEEN? 


001402 






BEQ 


55$ 


mum 



CZTUZAO TUaO FRONT END PRT D MACRO Ml 200 
CKHSGZ - COMPARE EXPD RECV MESSAGE BUFFERS 
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SEd 57 



2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 



01U44 
01U46 
01US0 
01US2 

01US4 
0nS44 
011555 
011610 
011643 



000241 
000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



551: 
601: 



CLC 
BR 
SEC 
RTS 



60S 

P*" 



SET FAILURE 

SET SUCCESS 
RETURN 



DEBU6MS6: .ASCIZ 'PROGRAM INTERNAL ERROR -CKMS62 MESSAGE BUFFER EXCEEDED-' ;aM> 

FERCM: .ASCII /tNXA •••/ 

ERCM: .ASCJZ / TSSR ERROR CODE REC*D * / 

SIMSG: .ASCIZ /.... AFTER DOING SOFT INIT/ 

TINERR: .ASCIZ /TEST: .../ 
.CVEN 



6 S 



CZTUZAO TU60 FRONT END PRT D HACRO HI 200 
CKHSCZ - COMPARE EXPO RECV MESSAGE BUFFERS 

2252 
22S3 
2234 
2255 
2256 
2257 
225a 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 



2249 
22S0 
2251 



2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 

2265 
2266 
2267 
2268 
2269 
2270 
227T 



2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 



0116S6 
011656 
011656 
011662 
011666 
011666 
011666 



004737 
004737 



104423 



005264 
020142 



011670 
011670 
011670 
011674 
011700 
011704 
011710 
011712 
011716 
011716 
011716 



004737 
012700 
004737 
013700 
005001 
004737 



104423 



005264 
000004 
007062 
002716 

014052 



29-nAR-83 13:45 PAGE 40 



;♦ 

•PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
; INPUT: 

• 

; R1 CONTENTS CF TSSR AT ERROR 

:S1K EFFECTS: 

: EXECUTES DROP UNIT TO CEASE TESTING 



SEQ 58 



SFinSG:: 



L10003: 



BGNHSG SFINSG 

t 

JSR PC.PRITSSR 

JSR PC.CKDROP 
ENDNS6 

TRAP CMSG 



.•PRINT CONTENTS OF TSSR REGISTER 
;DROP UNIT. IF ALLOUED 



.•PRINT ROUTINE TO PRINT THE CONTENTS OF 

.-TSSR AND A COMMAND PACKET OTHER THAN GET !»TATUS COMMAND PACKET. 



.-INPUTS- 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



PKTSSR: 



BC'NKSG PKTSSR 



Li 0004: 



JSR 
MOV 
JSR 
MOV 
CLR 
JSR 

ENDMSG 



PC.PRITSSR 
f4.R0 

pc.PRiPr; 
nesbfa.ro 

Rl 

pc.prness 



;PRINT THE CONTENTS OF TSSR REGISTER 

:N0. OF UORDS IN PACKET 

: PRINT THE CONTENTS OF COMMAND PACKET 

.ADDRESS OF MESSAGE BUFFER 

;ASSUME NO HIGH MEMORY 

: PRINT THE MESSAGE BUFFER ALSO 



TRAP CSMSG 



; PRINT ROUTINE TO PRINT THE CONTENTS OF 
.TSSR AND A GET STATUS COMMAND PACKET. 



.•INPUTS: 



Rl TSSR CONTENTS 

R4 ADDRESS OF COMMAND PACKET 



CZIUZAO TUSC fRQNT END PRT D HACRC Ml 200 
CKHS62 - COMPARE EXPO RECV II6SSA6C BUffERS 



M 5 

29-HAR-85 13:A5 PAGE 40-1 



S!0 59 



2283 
2284 

228S 
2286 
2287 
2288 



2289 
2290 
2291 
2292 
2295 
2294 
229S 
'296 
2297 
2298 
2299 
2500 

2501 
2502 



011720 
011720 
011720 
011724 
011750 
011754 
01175*. 
011754 



2505 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2515 
25U 
2315 
2516 
251? 
2518 

2519 
2520 
2521 
2522 
2525 



2524 



011756 
011756 
011756 
011742 
011742 
011742 



011744 
011744 
011744 
011750 
011752 
011754 
011760 
011760 
011760 



004737 
012700 
004757 



104425 



0OS264 
000002 
007062 



8GNHSG PKTGETS 
PKTGETS:: 

JSR P'".PRITSSR 

flOV #2.1(0 

JSR PCPRIPKT 
ENOMSG 

Li 0005: 

TRAP CSnSG 



.•PRINT THE CONTENTS Of TSSR REGISTER 
:N0. OF WORDS IN GET STATUS PACKET 
.PRINT THE CONTENTS pf COMHANO PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS- 

R1 TSSR CONTENTS 

R4 ADDRESS OF COfWAND PACKET 



004757 
104425 



005264 



SFFNSG: 



LI 0006: 



B6NNSG SFFMS6 

9 

JSR PC.PRITSiR 
ENDNSS 

TRAP CSNSG 



;PRINT CONTENTS OF TSSR REGISTER 



.S6TTL PKTHES - PRINT TSSR AND NESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 lOU ORDER MESSAGE BUFFER 

R5 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R5 IS IGNORED IF KTENABLE FLAG C'EAR 



004757 
010200 
010501 
004757 



104425 



005264 
014052 



PKTMES:: 



B6NHS6 PKTMES 



Li 0007: 



JSR 
MOV 
MOV 
JSR 



PC .PR I TSSR 
R2.R0 
R5,R1 
PC.PRMESS 



.PRINT CONTENTS OF TSSR 
;LOW ORDER ADDRESS 
:HIGN ORDER ADDRESS 
;PRINT THE MESSAGE BUFFER 



TRAP CSMSG 



CZTUZAO TU80 fRONr END PUT 0 
AOOSSR - PRIMT TEST ADMESS 



?326 
2327 
2328 
2329 
2350 
2351 
2332 
2333 
2334 
2335 
2336 
2357 

2338 011762 
011762 
2559 011762 

2540 011766 

2541 011772 

2542 011776 
011776 
011776 

2545 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2555 

2554 

2555 

2556 

2557 012000 
012000 

2558 012000 

2559 012004 

2560 012U10 
012010 
012010 



NACRO 111200 
TSSR 



29-IIAR-85 15 45 
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SEO 60 



004757 010016 
016501 000000 
004757 005264 



104425 



2561 
2562 



012700 000007 
004757 015412 



104425 



.SSTTL AOOSSR • PXIMT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A KIK)R« TFST ADDRESS 



INPUTS: 



R5 FIRST DEVICE UNIBUS ADDRESS 

ERRHI HIGH ORDER NENORY TEST ADDRESS 
ERRLO LOU ORDER NEMORV TEST ADDRESS 



ADDSSR: 



L10010: 



BGNNSG ADDSSR 



JSR 
MOV 
JSR 

EN0MS6 



PC.PRITAOD 

TSSR(R5).R1 

PC.PRITSSR 



; PRINT MEMORY TEST ADDRESS 
:GET CURRENT TSSR 

•PRINT THE CONTENTS OF TSSR REGISTER 



TRAP CSNS6 



.S8TTL HS6EKP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BiiFFERS 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
IMPLICIT INPUTS: 

EXPMS6 - EXPECTED MESSAGE BUFFER 

RECMS6 - RECEIVED MESSAGE BUFFER 

RCVNIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADO- RECEIVED MESSAGE BUFFfO LOW ORDER ADDRESS 



MSGEXP:: 
5$: 

L10011: 



BGNMSG MSGEXP 



MOV 

JSR 

ENDMS6 



#7,R0 

PC.PRMSGCXP 



;ASSUME NO EXT FEATURES 

:PRINr EXPD/RECV MESSAGE BUFFERS 



TRAP CSMSG 



J 5 



CZTUZAC TU80 FKOH) ENO ^RT D HACM 111200 
I IFEaP - PRINT FIFO EXP/RECV DATA 



2564 
236S 
2366 
2367 
2366 
2369 
2370 
2371 
2372 
2373 
2374 
2375 

2376 012012 
012012 

2377 012012 
012012 
012014 
012020 
012024 
012026 
012030 

2378 012034 
012034 
012040 
012044 
012046 
012030 

2379 012054 

2380 012056 

2381 012062 
012062 
012062 

2382 012064 

2383 012133 
2384 

2365 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



29-flAR-83 13:43 PACE 42 



.S8TTL FIFEXP • PRI<4T FIFO EXP/RECV DATA 



SEO 61 



012064 
000002 



000006 

012133 
000001 



000004 
015762 



116 
116 



PRINT ROUTINE TO PRINT FIFO EXP/RECV nATA 

R1 - BV1E CO>JNT 

IHPLiCIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECHS6 - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP:: 



BGMIS6 FIFEXP 



045 
045 



L10012: 

FIFinSG: 
FIF2NS6: 



PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

TRAP 

ADD 

NOV 

JSR 

CNDHSG 
TRAP 



#FIF1HS6,R1 

R1.-<SP) 

fFIF1NSG,-CSP> 

f2.-(SP) 

SP.RO 

CtPNTX 

f6,SP 

fFIF2NSG 

#FIF2HS6.>(SP) 

#1,-(SP) 

SP.RO 

CSPNTX 

f4,SP 

R1.R0 

PC.PR8YTEXP 



:PRINT BYTES TRANSFERRED 



: PR INT HEADER NSG 



.'GET BYTE COUNT 

; PRINT FIFO BYTES IN ERROR 



.EVEN 



CSNSG 

.ASCIZ 

.ASCIZ 



'SNXA NUNBCR OF BYTES TRANSFERRED « SD2* 
*SNU FIFO DATA BYTES IN ERROR:* 



CZTUZAO TU80 FRONT END PftT D lUCftO HIZOO 29-f<)AR-83 13:43 PAGE 43 
NSGSTAT - PRINT STATUS HEADER AND RCSSA6E BUFFERS 



SEQ 62 



2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
239S 
2396 
2397 
2398 
2399 

2400 012172 
012172 
24G1 012172 

2402 012176 

2403 01220C 

2404 012202 
012202 
012204 
012210 
012212 
012214 

2405 012220 

2406 012222 

2407 012226 

2408 012232 
012232 
012232 

2409 

2410 012234 

2411 012252 

2412 012314 

2413 012405 

2414 012476 

241 5 012567 

2416 012631 
2417 

2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 

2433 012706 
012706 

2434 012706 



•SBTTL NSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



INPLlCIT INPUTS: 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012252 
045 
045 
045 
045 
045 
045 







BGNNS6 


NSGSTAT 


012234 


NSGSTAT:: 






NOV 


fSTATCOD.RI 




108: 


NOV 


(RD^.RO 






BEQ 


20$ 






PftlNTX 


RO 






NOV 


RO,-(SP) 


000001 




NOV 


#1.-(SP) 






NOV 


SP,RO 






TRAP 


C$PNTX 


000004 




AOO 


f4«SP 






BR 


10$ 


000012 


20$: 


NOV 


f10.,R0 


015412 




JSR 


PC,PRNSG£XP 






ENDHS6 






Li 001 3: 










TRAP 


C$NS6 



EXPNS6 - EXPECTED NESSAGE BUFFER 

RECNSG • RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED NESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED NESSAGE BUFFER LOW ORDER ADDRESS 



;ASCII ADDRESS TABLE 
:DONE ALL NS6 LINES? 
*BR IF YES 

•PRINT STATUS BIT NANES 



;D0 ANOTHER NS6 LINE 

:NUNBER OF WORDS IN A READ STATUS BUFFER 
.-PRINT EXPb/RECV NESSAGE BUFFERS 



0123 



14 
116 
116 
116 
116 
116 
116 



012405 
045 
045 
045 
045 
045 
045 



STATCOD: 
1$:.ASCIZ 
2$:.ASCIZ 
3$:.ASCIZ 
4$:.ASCI2 
5$:. ASCI 2 
6$:.ASCIZ 

.EVEN 



.WORD 1$.2$.3$,4$.5$,6$,0 
*INIA Tap* Bui Slonals In Word #8:* 
'XNU PAREiR<1S> lEOT <12> 

*INXA IRESV2<14> IIDENT<11> 

*SNSA IRESV1<13> ICER <10> 

'XNXA Tap* Bus Sfonalt In Word #9:* 
*XNXA DATNI$<7> ILW<6> 0UTRDV<5> 



IFNK <9> 
IHER <8> 
ISPEED<7> 



IRDV<6> 
10NL<5> 
ILDP<4> 



iRW0<2>' 
1FBY<1>* 
1FPT<0>' 



INRDV<4>' 



.SBTTL NS6L00P - PRINT LOOPBACK HEADER AND NESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT NESSAGE BUFFER EXPD/RECV 

INPLICIT INPUTS: 

EXPNSG - EXPECTED NESSAGE BUTFER 

RECNSG - RECEIVED NESSAGE BUFFER 

RCVHIADD- RECEIVED NESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED NESSAGE BUFFER LOW ORDER ADDRESS 



012701 012750 



NSGLOOP: 



BGNNSG NSGLOOP 

MV fLOOPC QD.Rl :ASC11 ADDRESS TABLE 



CZTUZAO TuaO FRONT END PRT 0 MACRO ni200 29-MAR-83 13:43 
NSGLOOP - PRINT LOOPeACK HEADER AND MESSAGE BUFFERS 
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SEO 65 



2435 012712 

2436 012714 

2437 012716 
012716 
012720 
012724 
012726 
012730 

2438 012734 

2439 012736 

2440 012742 

2441 012746 
012746 
012746 

2442 

2443 0127S0 

2444 012770 

2445 013043 

2446 013142 

2447 013241 

2448 013340 

2449 013437 

2450 013S36 
24S1 

24S2 



012100 
001410 

010046 

012746 000001 

010600 

10441S 

062706 000004 
000766 

012700 000012 
004737 01S412 



104423 



045 
045 
045 
045 
045 
045 
045 



10S: 



201: 



L10014: 



NOV 
BEQ 

PRINTX 

mv 

NOV 

NOV 

TRAP 

ADD 

BR 

NOV 

JSR 

ENDNSG 



(RD^.RO 

20t 

RO 

R'J.-CSP) 

#1.-iSP) 

%P,HO 

CtPNTX 

i4.SP 

10S 

f10.,K0 
PC.PRHSGEXP 



DONE ALL NSG LINES? 
BR IF YES 

PRINT STATUS BIT NAHES 



DO ANOTHER NSG LINE 

NUNBER OF WORDS IN A READ STATUS BUFFER 
PRINT EXPD/RECV NESSAGE BUFFERS 



TRAP CSNSG 



013043 


01SU2 


LOOPCOD: 


116 


045 


U: 


.ASCIZ 


116 


045 


2$: 


.ASCIZ 


116 


045 


3$: 


.ASCIZ 


116 


045 


4$: 


.ASCIZ 


116 


045 


5S! 


.ASCIZ 


116 


045 


6$: 


.ASCIZ 


116 


045 


7S: 


.ASCIZ 



•XNXA 
•ZNIA 
*SNXA 
'INSA 
*XNSA 
'XNSA 
*XNIA 
.EVEN 



WORD 1S,2t,3S»4S,St.6t,7»«0 
Tapt Bus Loopback Signals In Uord #8: 



PARERR<15> 
IHISP«>IE0T<12> 
IWFN *>IFNX<09> 
ITAD0s>IRDY<06> 
IREU <>ID6Y<03> 
IGO «>IFPT<00>* 



IRESV2<14> 
IURT«>IIDENT<11> 
lEDITolHER <08> 
irADU>I0NL <05> 
IRWU s>IRWD <02> 



IRESV1<13>' 
IREV »>ICER <10>' 
IFAD *>ISPEED<07>' 
IERASE«>ILDP <04>' 
IFEN s>IFBV <01>* 



N S 



CZTUZAO TU80 FRONT END PRT D MACRO HI 200 29-nAR-83 13:43 
HSGSUB - PRINT yRlTE SUBSYSTEM MESSAGE BUFFER 
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SCO 64 



2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 

2467 013564 
013564 

2468 013564 

2469 013570 

2470 013574 
013574 
013574 

2471 
2472 
2473 
2474 
24/5 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 

2488 013576 
013576 

2489 013576 

2490 013602 

2491 013606 

2492 013612 

2493 013616 
013616 
013616 

2494 



.SBTTL HSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



EXPMS6 - EXPECTED MESSAGE BUFFER 

RECMSG • RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH Oi^DER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



012700 000012 
004737 015412 



104423 



MSGSUB:: 



B6NMSG MSGSUB 



L10015: 



MOV 

JSR 

ENDMSG 



f10.,R0 

PC.PRHS6EXP 



:SIZE OF WRITE SUBSYSTEM BUFFER 
:PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP CSMSC 



.SBTTL MEMADO - PRINT MEMORY ADDRESS DATA ERROR 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 007702 

01370". 002176 

013702 002200 

004737 007464 



104423 



NENADD: 



BGNMSG MEMAOD 



L10016: 



JSR 
MOV 
MOV 
JSR 

ENDMSG 



PC, PR I ADD 
EXPD.RI 
RECV,R2 
PCPRIXOR 



PRINT MEMORY ADDRESS IN ERROR 
GET EXPD DATA 
GET RECEIVED DATA 
PRINT EXPD/RECV 



TRAP CtMSG 



N 5 



CZTUZAO TU80 FRONT END PRT D MACRO HI 200 
PRANPKT - PRINT RAN AND PACKET DATA 



2496 
2A97 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
251 4 
2515 
2516 

2517 013620 

2518 013620 

2519 013624 

2520 013630 

2521 013632 

2522 013634 

2523 013636 

2524 013642 

2525 013646 

2526 01365^ 

2527 013662 

2528 013670 

2529 013676 
013676 
013700 
013704 
013710 
013712 
013716 
013722 
01372* 
015726 

2530 013732 

2531 013734 

2532 013740 

2533 013742 

2534 013746 

2535 013750 

2536 013752 

2537 013756 
2536 013760 

2539 01*764 

2540 013766 
2541 



012701 
005002 
122124 
001000 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 
045 



29*NAR-83 13:43 PAGE 45 



.SBTTL PRANPKT - PRINT RAN AND PACKET DATA 



SEQ 65 



PRINT ROUTINE TO DISPLAY RAN/PACKET DATA 
WHEN THE RAN DATA DOES NOT NATCH. 

INPUTS: 

R4 POINTER TO CONNAND PACKET 

INPLICIT INPUTS: 



RANDATA 
RANSIZ 



DATA AS READ FRON THE RAN 
NUNBER OF BYTES IN PACKET 
IF RANSIZsO THEN DEFAULT TO 6. 



INPLICIT OUTPUTS: 

RANSIZ SET TO 0 

PRANPKT: 



002206 



177777 
177777 

177400 
177777 
177777 



002176 
002200 

013766 
000005 



000014 
002246 
002246 

000010 
002246 
116 



002200 
002176 



045 









;SAVE R1-R5 UNTIL NEXT RETURN 




rHIV 


«RANDATA,R1 


.'DATA FRON THE RAN 


5S: 


n 0 


R2 


;1NIT BYTE NUNBER 


CNP6 


(R1)4,(R4)« 


;CONPARE EXPECTED. RECEIVED 




BNE 


7$ 


:BR IF NO NATCH 


7S: 


NOVB 


-1(R1).R5 


;GET RECV RAN DATA 




NOVB 


-1(R4),R3 


:GET EXPD PACKET DATA 




XOR 


R5.R3 

#1 77400 .R3 


;XOR EXPD/RECV 




BK 


:LOU BYTE ONLY 




NOVB 


-1(R1)«RECV 


;6ET RECEIVED RAN DATA 




NOVB 


-1(R4),EXP0 


;GET EXPECTED RAN DATA 




PRINTS 


fRANASC.R2«RECV.EXPD,R3 




NOV 


R3.-(SP) 






NOV 


EXPD,-(SP) 






NOV 


R£CV,-(SP) 






NOV 


R2,-<SP> 






NOV 


f RANASC .-(SP) 






NOV 


#5.-<SP) 






NOV 


SP.RO 






TRAP 


C$PNTB 






ADD 


#14. SP 




10S: 


INC 


R2 


;UPDATE BYTE COUNT 




TST 


P,ANSIZ 


; DEFAULT TO 8.? 




BEQ 


15$ 


;BR IF YES 




CNP 


R2.RANSIZ 


:DONE ALL BYTES? 




BLE 


5$ 


:BR IF NO 




BR 


25$ 


• 

•DONE DEFAULT NUNBER OF BYTES? 


15$: 


CNP 


R2.98. 


20$: 


BLT 


5$ 


;BR IF NO 


25$: 


CLR 


RANSIZ 


;SET DEFAULT RANSIZ 




RTS 


PC 

*XNXA BYTE: 


: RETURN 


RANASC: 


.ASCIZ 
.EVEN 


X02XA RAN: 203SA Packet: Z03XA X0R:X03' 
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CZTUlftO TU60 FRONT END PRT D MACRO HI 200 
PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 



2SA3 

2S4S 
2S<.6 
254/ 
2548 
2549 
2550 
2551 
2552 
2555 
2554 
2555 
2556 
2557 
2558 
2559 

2560 014052 

2561 014052 

2562 014056 

2563 014062 

2564 014064 

2565 014070 

2566 014072 

2567 014074 

2568 014076 

2569 014100 

2570 014102 
014102 
014104 
014106 
014112 
014116 
014120 
C14122 

2571 014126 

2572 014132 

2573 014134 
014134 
014140 
014144 
014146 
014150 

2574 014154 
014154 
014160 
014164 
014166 
014170 

2575 014174 

2576 014176 

2577 014200 

2578 014202 

2579 014204 

2580 0U210 

2581 014212 

2582 014212 
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.SBTTL PRHESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 66 



010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 



THIS ROUTINE PftI«iTS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TU80. 

INPUT: 

RO LOU ORDER ADDRESS OF MESSAGE BUFFER 

R1 HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: R1 IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRNESS: 



011012 
003102 



10$: 



014703 
000003 



000010 
177777 



014623 
000001 



000004 

014750 
000001 



000004 



020256 



15$: 



20S: 



SAVREG 




•SAVE THE REGISTERS 


MOV 


R5.RAMR5H 


:SAVE DEVICE REGISTER POINTER 


MOV 


R0.R5 


•SAVE LOy ORDER ADDRESS 


TST 


KTENABLE 


.'ADDRESS ABOVE 28K'' 


BNE 




;BR IF YES 


CLR 


Ki 


;SET HIGH ORDER ADDRESS TO 0 


MOV 


R1,R3 


:SAVE HIGH ORDER ADDRESS 


ROL 


RO 


.'SHIFT BIT15 TO C BIT 


ROL 


R1 


•SHIFT TO HIGH ORDER FOR PRINTOUT 


PRINTX 


ffPROASC.Rl.RS 


zPnINT message BUFFER ADDRESS 


MOV 


R5«-(SP) 




MOV 


R1 «*(SP) 




mv 


fPROASC.-(SP) 




MOV 


ff3.-(SP) 




MOV 


SP.RO 




TRAP 


CSPNTX 




ADD 


flO-SP 




CMP 


#1 77777. (R5) 


:MESSAGE BUFFER FULL OF ONES 


BNE 


15$ 


;BR IF BUFFER IS PROBABLY OKAY 


PRINTX 


ffNESBFN 


;'11ESSAGE BUFFER PROBABLY NOT VALID" 


MOV 


fnESBFN.-(SP) 




MOV 


fl.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


ff4.SP 




PRINTX 


fPRIASC 


.•PRINT HEADER FOR CONTENTS 


MOV 


fPR1ASC,-(SP) 




MOV 


ffl.-(SP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


ff4,SP 




CLR 


R4 


;NUMBER OF THE NEXT WORD 


MOV 


R5.R1 


:COPY LOW ORDER ADDRESS 


MOV 


R3.R0 


:COPY HIGH ORDER ADDRESS 


BED 


20$ 


;BR IF NOT ABOVE 28K 


JSR 


PCSETHAP 


: SETUP PAR ADDRESS IN RO 


MOV 


RO.RS 


;GET PAR FORMAT ADDRESS ABOVE 28K 


PRINTX 


ffNESHEA.(R5)* 


.'PRINT '^lESSAGE BUFFER HEADER =" 



CZTUZAO TU80 FRONT END PRT D flACRO HI 200 
PRRESS - PRINT CONTENTS OF HESSAGE BUFFER 



0U212 


012546 




0U2U 


012746 


01 5006 


0U220 


012746 


000002 


014224 


010600 




014226 


104415 




014230 


062706 


000006 


2583 014234 






014234 


012546 




014236 


012746 


015053 


014242 


012746 


000002 


014246 


010600 




014250 


104415 




014252 


062706 


000006 


2584 014256 






014256 


012546 




014260 


012746 


015120 


014264 


012746 


000002 


014270 


010600 




014272 


104415 




014274 


062706 


000006 


2585 014300 






014300 


012546 




014302 


012746 


015165 


014306 


012746 


000002 


014312 


010600 




014314 


104415 




014316 


062706 


000006 


2586 014322 






014322 


012546 




014324 


012746 


015232 


014330 


012746 


000002 


014334 


010600 




0U336 


104415 




014340 


062706 


000006 


2587 014344 






014344 


012546 




014346 


012746 


015277 


014352 


012746 


000002 


014356 


010600 




014360 


104415 




014362 


062706 


000006 


2588 014366 






014366 


012546 




014370 


012746 


015344 


014374 


012746 


000002 


014400 


010600 




014402 


104415 




G14404 


062706 


000006 


2589 014410 


022737 


C00001 002134 


2590 014416 


001402 




2591 014420 


000137 


014530 


2592 014424 






014424 


012746 


C14532 


014430 


012746 


000001 


014434 


010600 




014436 


104415 




014440 


062706 


000004 
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SEQ 67 



NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADO 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

PRINTX 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

CNP 

BEQ 

JNP 

PRINTX 

NOV 

NOV 

NOV 

TRAP 



(R5)*.-(SP) 

«NESHEA,-(SP) 

#2.-(SP) 

SP.RO 

CtPNTX 

#6,SP 

«DATAFL,(R5)« 

(R5)«.-(SP) 

fDATAFL.-(SP) 

#2.-<SP) 

SP.RO 

CSPNTX 

#6,SP 

«RBPCRA,(R5}« 

(R5)«,-(SP) 

fRBPCRA,-(SP) 

#2.-(SP) 

SP.RO 

CSPNTX 

«6.SP 

fXS0C0N,(R5)* 

CR5>*.-(SP) 

#XS0CON.-(SP) 

#?.-(SP) 

SP.RO 

CSPNTX 

«6.SP 

«XS1C0N.(R5)* 

(R5>».-(SP) 

«XS1C0N.-(SP) 

#2.-(SP> 

SP.RO 

CSPNTX 

ff6.$P 

fXS2C0N.(R5}* 

(R5)».-(SP) 

fXS2C0N.-(SP) 

#2.-(SP> 

SP.RO 

CSPNTX 

f6.SP 

fXS3CON.<R5)» 

(R5)».-CSP) 

fXS3C0N.-(SP) 

f2.-(SP) 

SP.RO 

CSPNTX 

f6.SP 

fl.TRANSTST 

40S 

50$ 

ffRANFHR 

mNFHR,-{SP> 
#1,-(SP) 
SP.RO 
CSPNTX 



;PRINT "DATA FIELD LENGTN 



; PRINT "RESIDUAL BYTE COUNTER *" 



:PRINf "XSTATO CONTENTS 



.PRINT "XSTAT1 CONTENTS 



.•PRINT "XSTAT2 CONTENTS 



.-PRINT "XSTAT3 CONTENTS 



.CHECK FOR RAN OUHP REQUIRED 
:BR. IF REQUIRED 
:JHP IF NO DUNP 



CZTUZAO TU80 fRONT END PRT D MACRO Hi 200 
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2593 0U444 

2594 0U4S2 

2595 OU460 

2596 014464 

2597 014472 

2598 014476 

2599 014504 

2600 014510 

2601 014516 

2602 014524 

2603 014530 

2604 014532 

2605 014623 

2606 014703 

2607 014750 
2608 

2609 015006 

2610 015053 

2611 015120 

2612 015165 

2613 015232 

2614 015277 

2615 015344 
2616 



012737 
012737 
004737 
012737 
004737 
012737 
004737 
012737 
012737 
004737 
000207 
045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



000010 
000020 
010626 
000040 
010626 
000060 
010626 
000020 
000100 
010626 

116 
116 
116 
116 

116 
116 
116 
116 
116 
116 
116 



002246 
011010 

011010 

011010 

002246 
011010 



045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



50$: 



NOV 
NOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOV 
MOV 
JSR 
RTS 



RAMFHR: .ASCIZ 

MESBFN: .ASCIZ 

PROASC: .ASCIZ 

PR1ASC; .ASCIZ 



MESHEA: 
OATAFL: 
RBPCRA: 
XSOCON: 
XS1C0N: 
XS2C0N: 
XS3C0N: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



«8..RAMS1Z 

f2C.RAMHLD 

PCRAMER 

f'-O.RAMHLD 

PC.HAMER 

#60,RANHLD 

PCRAMER 

f16.,RAMSlZ 

flOO.RAMHLD 

PC.RAMER 

PC 

•XNXA ••••tt.i 
*XNXA MESSAGE 

'XNXA Mtssagt 
'XNXA Ntstagt 



;RAM FIElD IS 8 BYTES LONG 

:F1ELD STARTS AT 20 OCTAL (10 HEX) 

:READ AND PRINT THEM 

;FiELD STARTS AT 40 OCTAL (20 HEX) 

:READ AND PRINT THcM 

:FIELD STARTS AT 60 OCTAL (30 HEX) 

.-READ AND PRINT TMEH 

:RAN FIELD IS SIXTEEN BYTES LONG 

: FIELD STARTS AT 1C8 OCTAL (40 HEX) 

:READ AND PRINT THEM 

'RETURN 

••'special M7454 RAH MEHORY DUHP ••••< 
BUFFER CONTENTS PROBABLY NOT VALID* 
Bufftr Addrttt * X01X05' 
Bufftr Conttnts:* 



'XNXA Mtttaat Bufftr Ht«dtr 
'XNXA Dat« Field Ltnath 
'XNXA Rttldual Byt« Counter 
'XNXA XSTATO Conttntt 
'XNXA XSTAT1 Conttnts 
'XNXA XSTAT2 Conttnts 
•XNXA XSTATS Conttnts 



« X06' 

- X06' 
s X06* 
« X06' 

- X06* 
» X06' 
= X06' 
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2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 

2628 015412 

2629 015412 

2630 015416 

2631 015420 

2632 015424 

2633 015426 

2634 015432 

2635 015434 

2636 015436 
015436 
015440 
015442 
015446 
015452 
015454 
015456 

2637 015462 
015462 
015466 
015472 
015474 
015476 

2638 015502 

2639 015504 

2640 015510 

2641 015514 

2642 015516 

2643 015520 

2644 015530 
015530 
015532 
015534 
015536 
015540 
015544 
015550 
015552 
015554 

2645 015560 

2646 01 5562 

2647 015564 

2648 015566 

2649 015570 

2650 015572 

2651 015637 

2652 015675 
2653 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
CI 2701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
C02001 
000752 
000207 
045 
045 
045 
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.SBTTL PRRS6EXP - PRINT EXPO/RECV KSSAGE BUFFERS 



SCO 69 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BU5FER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFEP LOW ORDER ADDRESS 

PRMSGEXP:: 



002252 
002250 



015572 
000003 



000010 

015637 
000001 



000004 

002266 
002432 



20$: 



015675 
000005 



000014 



116 
116 
116 



508: 

045 PRMSGO: .ASCIZ 
045 PRMS61: .ASCIZ 
045 PRNSG2: .ASCIZ 
.EVEN 



SAVREG 




:SAVE R1-R5 UNTIL NEXT RETURN 


MOV 


R0«R5 


:SAVE WMBER OF WORDS 


NOV 


RCVLOADD «R0 


:6ET RErV LOW ADDRESS 


MOV 


AA 9kM 

R0«R4 


;COPY LOW ADDRESS 


wv 


RCVHIADD«R1 


;SET RECV HIGH ADDRESS 


ROL 


BA 

RO 


;SHIFT BIT1S TO C BIT 


ROL 


B1 

Rl 


;SHIFT TO HIGH ORDER FOR PRINTOUT 


PNINTX 


frRnSuO#R1 ,R4 


;PRINT MESSAGE BUFFER ADDRESS 


MOV 


R4.-(SP) 


PWV 


Rl ,-lSr) 




nov 


fPRMSGO,-(SP) 




MOV 


f3,-(SP) 




PWV 


SP.RO 






CSPNTX 




AOv 


flO.SP 




PRJNlH 


fPRMSGI 


.•PRINT HEADER FOR CONTENTS 


PKJV 


ffPRMS61,-(SP) 




MOV 


f1«-(SP> 
SP,RO 




MAU 

MOV 




TRAP 


CSPNTX 




APP 


#4.SP 




H B 

CLR 


R4 


:NUMBER OF THE CURRENT WORD 


MOV 


fEXPHSG.Rl 


:6ET EXPD BUFFER ADDRESS 


MOV 


«RECN$6.R2 


;GET RECV BUFFER ADDRESS 




(RD.RO 


:GET EXPD 


NOV 


(R2).RS 
R0,R3 


;GET RECV 


XON 


:XOR EXPD/RECV 


PRJNTX 


fPRNS62 .R4 , (Rl ) ♦ « (R2) « .R3 


NOV 


R3--($P) 
(R2)t.-(SP) 




NOV 




NOV 


(R1)*,-(SP) 
R4.-(SP> 




NOV 




NOV 


fPRN$62.-(SP) 




NOV 


#5,-(SP) 




NOV 


SP*RO 




TRAP 


CSPNTX 




ADD 


fU.SP 




INC 


R4 


;NUMBER OF THE NEXT 


CNP 


R4,R5 


;DONE ALL YET? 


BGE 


50$ 


:BR IF YES 


BR 


20$ 


;D0 ANOTHER 


RTS 


PC 


: RETURN 



*XNXA Htssag* Bufftr Addrtss « I01I05* 
*SNSA MtssMt Bufftr Contents:* 
*SNXA WORD flD2U EXPD: S06XA RECV: I06IA XOR: S06' 
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SEQ ?C 



2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 

2668 015762 

2669 015762 

2670 015766 

2671 015770 

2672 015774 

2673 015776 

2674 016002 

2675 016006 

2676 016010 

2677 0160U 

2678 016020 

2679 016022 

2680 016026 

2681 016032 

2682 016042 

2683 016044 

2684 016046 

2685 016052 
2636 016060 

2687 016062 
016062 
016064 
016070 
016074 
016076 
016102 
016106 
016110 
016112 

2688 016116 

2689 016126 

2690 016130 

2691 016130 

2692 016140 

2693 016140 

2694 016142 

2695 016144 

2696 016146 

2697 016150 
016150 
016154 
016160 
016164 
016166 



.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

♦ 

ROUTINE TO PRINT CRROR BYTES IN MESSAGE BUFFERS 

ONLY THE FINST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUNBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



A A AAA V 

010005 




AAr AV 9 

005037 


002264 


005C04 




012701 


002c66 


012702 


002452 


111100 




042700 


177400 






111203 




042703 


177400 


110337 


016332 


122122 




001431 




005237 


002264 


023727 


002264 


101023 




010346 




013746 


016332 


013746 


016330 


010446 




012746 


016176 


012746 


000005 


010600 




104415 




062706 


000014 


000404 





EXPMSG 
RECMSG 



PRBYTEXP:: 

SAVRE6 

NOV 

CLR 

CLR 

MOV 

MOV 

20S: MOVB 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOR 
CMPB 
BEQ 
INC 
CMF 
BHI 

27S: PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



- EXPECTED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER 



005204 
020405 
002001 
000717 

013746 002264 
012746 016263 
012746 000002 
010600 

104415 



30$: 
35$: 



50$: 



RO*RS 
PRMNO 
R4 

fEXPMSG.RI 

f RECMSG, R2 

(RD.RO 

f*C<S77>,R0 

RO.PRBEXP 

(R2).R3 

#»C<377>.R3 

R3,PRBREC 

R0«R3 

(R1)«.(R2)« 
30$ 
PRNNO 
PRMNO.fS. 
30$ 



f PRBMSG,R4 ^PRBEXP.PRBREC .R3 
R3,-tSP) 
PRBREC,-(SP) 
PtlBEXP,-(SP) 
R4.-(SP> 
fPRBMS6.-(SP) 
f5.-(SP) 
SP*RO 
C$PNTX 
fU.SP 

50$ 



;SAVE R1-R5 UNTIL NEXT RETURN 
;SAVS NUMBER OF BYTES 
:INIT ERROR COUNT 
; NUMBER OF THE CURRENT BYTE 
;GET EXPD BUFFER ADDRESS 
:GET RECV BUFFER ADDRESS 
:GET EXPD BYTE 
; CLEAR UPPER BYTE 
.-SAVE FOR ERROR REPORT 
;GET RECV BYTE 
.•CLEAR UPPER BYTE 
:FOR ERROR REPORT 
;XOR EXPD/HECV 
;EXPD * RECV? 
*BR IF YES 
iUPDATE ERROR COUNT 
;PRINTED 8? 
:BR IF YES 



FORCEXIT 
BR 35$ 



FORCERROR 27$.NOTSSR 



INC 
CMP 
B6E 
BR 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 



R4 

R4.R5 

50$ 

20$ 

fPRBTOT, PRNNO 
PRNNO, -(SP) 
fPRBT0T,-(SP) 
f2.-(SP) 
SP.RO 

C$PWTX 



;aao 
:aaD 

;aaD 

*B8D 

•NUNBER OF THE NEXT 
:DONE ALL YET? 
:BR IF YES 
;00 ANOTHER 

.•PRINT TOTAL ERROR COUNT 
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SEQ 71 



016170 
2698 016174 
2699 

2700 016176 

2701 01626S 
2702 

2703 016330 

2704 016332 
270S 

2706 
2707 
2^06 
2709 
2713 
2711 
2712 
2715 
2714 
2715 
2716 

2717 016334 
016334 

2718 016334 

2719 016340 
016340 
016340 

2720 
2721 



062706 
000207 

04S 
04S 

000000 
000000 



004737 
104423 



000006 



116 
116 



007464 



ADD f6.SP 

RTS PC 

04S PRBNSG: .ASCIZ 

04S PftBTOT: .ASCIZ 
.EVEN 
PR8EXP: .WORD 0 
PRBREC: .WORD 0 



; RE TURN 



**NXA BYTE «SD2IA EXPD: I03XA RECV: S03SA XOR: S03* 
'INU NUMBER OF BYTES IN ERROR s XD2' 

:EXPD 
;RECV 



•RINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



R1 
R2 



EXPREC;: 



L10017: 



BGNMSG 
ENDMSG 



RECEIVED DATA 
EXPECTED DATA 



EXPREC 
PCPRiXOR 



; PRINT THE DATA 



TRAP CtMSG 



H 6 
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EXPBREC - PRINT EXPD/RECV BYTE 



2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
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DATA 



SEQ 72 



2737 
273S 



2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 

2764 
2765 



016342 
016342 

016342 004737 007334 

016346 

016346 

016346 104423 



2766 
2767 
2768 
r769 
2770 
277 j 
2772 
2773 



016350 
016350 

016350 004737 013620 

016354 

016354 

016354 104423 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



R1 RECEIVED DATA BYTE 

R2 EXPECTED DATA BYTE 



B6NHS6 EXPBREC 
EXPBREC:: 

JSR PCPRIBXOR 
ENDffSG 

LI 0020: 

TRAP CtNSG 



; PRINT THE DATA 



.SBTTL RANERR - PRINT RAN AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAH/PACKET DATA 
INPUTS: 

R4 POINTER TO CONNAND PACKET 

INPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAH 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ^O THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAHSIZ SET TO 0 



L10021 : 



BGNNSG RANERR 

JSR PCPRANPKT 
ENDNSG 

TRAP CMSG 



; PRINT RAM/PACKET DATA 



.SBTTL RANTADO - PRINT TEST ADDRESS, RAN AND PACKET DATA 

PRINT ROUTINE TO DISPLAY RAH/PACKET DATA 
; INPUTS: — 



CZTUZAO TU60 FRONT END PRT D MACRO mZM 29HUR-8S 1S:4S 
RAMI ADD - PRINT TEST ADDRESS, RAN AND PACKET DATA 



1 6 
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SEO 75 



2774 
277!> 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 

2790 016356 
016356 

2791 0163S6 

2792 016362 

2793 016366 
016366 
016366 

2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 

2806 016370 
016370 

2809 016370 

2810 016374 

2811 016400 

2812 016404 

2813 016410 
016410 
A16410 

2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 



R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RANDATA 
RANSIZ 

ERRHI 
ERRLO 

IMPLICIT OUTPUTS: 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RANSIZ«0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOU ORDER TEST ADDRESS 



004737 
004737 



104423 



010016 
013620 



RANSIZ SET TO 0 



BGNMSG RAMTADD 
RAHTADD:: 

JSR PC.PRITAOD 

JSR PCPRAMPKT 
ENDNSG 

L10022: 

TRAP CSMSG 



: PRINT TEST ADDRESS 
; PRINT RAM/PACKET DATA 



.S8TTL RAMEXP - PRINT RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 

R1 RECEIVED DATA 

R2 EXPECTED DATA 
R4 CONTROLLER RAN ADDRESS 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007610 
007464 



RAMEXP: : 



BGNMSG RAMEXP 



L10023: 



BIC 
BIC 
JSR 
JSR 

EN0MS6 



fC<377>.R1 
fC<377>,R2 
PC.PRIRAH 
PCPRIXOR 



:SAVE EXPD RAM DATA BYTE 
;SAVE EXPD RAM DATA BYTE 
:PRINT THE RAM ADDRESS 
: PRINT THE DATA 



TRAP CINSG 



.S8TTL TINEXP - PRINT TIMER A.B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A3 HEADER MESSAGE 



INPUTS: 



R1 RECEIVED DATA 

R2 EXPECTED DATA 



CZTUZAO TU80 FRONT CND FRT D MACRO m200 
\mxP - PRINT TINCR A.B AND EXP/REC 



J 6 
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SEb 74 



2B2S 
2826 

2827 016412 
016412 

2828 016412 
016412 
016416 
016422 
016424 
016426 

2829 016432 

2830 016436 
016436 
016436 

2831 
2832 

2833 016440 
2834 



TIMEXP:: 



BGNNS6 TINEXP 



012746 016440 

012746 000001 
010600 
10441S 

062706 000004 

004737 007464 



104423 

045 116 



Li 0024: 



PRINTX 

NOV 

NOV 

NOV 

TRAP 

ADD 

JSR 

ENDNS6 



ffTInSCO 

ffTinSGO«-(SP) 

•1,-(SP) 

SP.RO 

CSPNTX 

f4,SP 

PCPRIXOR 



.•PRINT HEADER 



; PRINT THE DATA 



TRAP CMSG 



04S TINSGO: .ASCIZ 'INSA TINER A STATUS IS IN BIT 3XNIA TIMER B STATUS IS IN BIT 2* 

•Even 



K 6 
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BADSSR - PRINT TSSR ERRORS ON DATA TRAkSPERS 



PAGE SO 



$EQ 7i 



2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 

2849 016540 
016540 

2850 016540 

2851 016542 

2852 016546 
016546 
016550 
016554 
016560 
016562 
016564 

2853 016570 

2854 016572 

2855 016576 
016576 
016576 

2856 016600 
2857 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



177400 



016600 
000002 



OOOOCS 
005264 

116 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 

PRINT ROUTINE FOR iSSR ERRORS ON DATA TRANSFERS 
INPUTS: 

R1 CONTENTS OF TSSR 

R2 DATA WRITTEN (8 BITS) 



BADSSR:: 



BGNNS6 BADSSR 



LI 0025: 
045 XFERASC: 



mv 

BIC 

PRINTS 

mv 
mv 
mv 
mv 

TRAP 
ADO 

mv 

JSR 

ENDHS6 
TRAP 



R2,-(SP) 

f1 77400. R2 

f XFERASC. R2 

R2.-($P) 

«XFERASC.-(SP> 

f2.-(SP) 

SP.RO 

CtPNTB 

«6.SP 

(SP)«,R2 

PC.PRITSSR 



:SAVE DATA TRANSFERRED 
:GET JUST ONE BYTE 



:RESTORE 112 

:DECOOE TSSf) CONTENTS 



CMSG 
.ASCIZ 



*MU Data Transftrrtd = 103* 



L 6 



CZTUZAO TU80 FRONT END FRT D HACRO N1200 
SOFlNiT - SOFT INITIALIZE OF CONTROLLER 



28S9 

2860 

2861 

2862 

2863 

2864 

286S 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 016634 

2888 016634 

2889 016640 

2890 016646 
016652 
016656 

2893 016660 

2894 016664 

2895 016670 

2896 016672 

2897 016674 

2898 016676 

2899 016700 

2900 016702 
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.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



SEQ 76 



ROUTINE TO DO A SOM INITIALIZE OF THE CONTROLLER 
BY yRITlNG INTO THE TSSR REGISTER. AFTER THE INIT< 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 



R5 



ADDRESS OF FIRST REGISTER 



OUTPUTS: 



RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



NOV 
JSR 
BCS 
ERRDF 



fADDRESS«R5 
PC. SOFINIT 
CONTINUE 



: REPORT FATAL ERROR 



SOFINIT:: 



2891 
2892 



012765 000000 000000 
004737 017110 
016500 000000 
010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

000261 

000207 



5$: 
108: 



SAVRE6 




: SAVE THE REGISTERS 


NOV 


fO.TSSR(R5) 


: DO THE INIT. 


JSR 


PC.WAITF 


: UAIT FOR SSR 


NOV 


TSSR(RS).RO 


;GET THE TSSR REGISTER 


NOV 


R0.R4 


:TSSR CONTENTS 


BIC 


f*C<HlADDR!0FL>,R4 


BIS 


fSSR!NBA.fl4 


:R4 HAS EXPECTED CONTENTS 


CNP 


R4.R0 


:ONLV EXPECTED BITS SET ? 


BEQ 


5$ 


:BRANCH IF OKAY 


CLC 




; CLEAR THE CARRY FOR ERROR 


BR 


10$ 


:G0 TO EXIT 


SEC 




:SET THE CARRY BIT 


RTS 


PC 


: RE TURN TO CALLER 



N 6 



CZTUZAO TU80 FRONT END PRT D MACRO HI 200 
CHKAHB - CHECK TSSR FOR AMBIGUITY 



?902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 

2922 016704 

2923 016704 

2924 016710 

2925 016712 

2926 016716 

2927 016720 

2928 016724 

2929 016726 

2930 016730 
?931 016734 
2932 016736 
29!3 016742 

2934 016744 

2935 016750 

2936 016754 

2937 016756 

2938 016760 

2939 016764 

2940 016766 

2941 016772 

2942 016774 

2943 016776 

2944 017000 
017002 
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.SBTTL CHKAMB * CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT: 



RO 



OUTPUT: 



RO 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAMB: 



2945 
2946 









SAVREG 




;SAVE THE GENERAL REGISTERS 


010004 






MOV 


R0.R4 


: CONTENTS OF TSSR 


032700 


100000 




BIT 


fSC»R0 


;IS BIT 15 SET ? 


001004 






BNE 


5$ 


:BRANCH IF YES 


032700 


174077 




BIT 


f*C<NBA'OFL!SSR!HlADDR>,RO ;ANV OTHER BITS 


001023 






BNE 


40$ 


:miST BE AN ERROR 


000424 






BR 


45$ 


,m\iim WITH SUCCESS 


032700 


000200 


51: 


BIT 


fSSR.RO 


;!S UEADY BIT SET ? 

.•BRANCH IF READY BIT IS SET. 


001011 






BNE 


10$ 


032700 


000040 




BIT 


fBITS.RO 


:I$ FATAL ERROR BIT SET ? 


001414 






BEQ 


40$ 


; ERROR IF NOT 


042704 


177761 




BK 


f'CTERCLS,R4 


: CLEAR ALL BUT TERMINATION CODE 


020427 


000016 




CMP 


R4.f16 


;ALL THREE BITS MUST BE SET 


001007 






BNE 


40$ 


: ERROR IF NOT SET 


000410 






BR 


45$ 


:0K IF ALL ARE SET 


032700 


000040 


10$: 


BIT 


IBITS.RO 


;IS FATAL ERROR BIT SET ? 


001405 






BEO 


45$ 


;ERROR IF BIT IS SET WITH SSR 


032700 


000006 




BIT 


fBIT2!BIT1.R0 


:IS THIS A FUNCTION REJECT 


001002 




BNE 


45$ 


;BR. IF TSSR IS OK 


000241 




40$: 


CLC 




; AMBIGUOUS CONTENTS 


000401 






BR 


50$ 




000261 




45$: 


SEC 




:SHOV SUCCESS - NO AMBIGUITY 


000207 




50$: 


RTS 


PC 


:RETURN TO CALLER 



N 6 
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ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



S£Q 78 



2948 
2949 
29S0 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 

2961 017004 
2962 

2963 01700S 

2964 

2965 

2966 017006 
2967 

2968 017010 

2969 

2970 

?971 017012 

2972 017014 

2973 017020 

2974 017024 

2975 017030 

2976 017032 

2977 017034 

2978 017042 
2979 

2980 

2981 017044 

2982 017046 

2983 017054 
2984 



.SBTTL ENAItv .OSBINT - ENABLE/DISABLE INTERRUPTS 

; DEFAULT DISPLAY INTERRUPT HANDLERS. 

; IF DISPLAY TINE-OUT, REPORT DEV FATAL. AND ABORT PASS. 

: OTHERWISE. SAVE DKU REGISTERS AND DISMISS. 

• 

: BIT DEFINITIONS FOR "INTHASK" AND "INTFLAG" BYTES: 



000200 
000001 



000 
000 

000000 
000000 



010046 

013700 002156 
012720 017056 
012720 000340 
012600 
011646 

012766 000000 000002 
000002 



011646 

012766 000340 000002 
000002 



I0KCKINSBIT7 
lOKSTP^BITO 



DON*T CHECK FOR BAD INTERRUPTS — TEST WILL. 
EXPECT "STOP" INTERRUPT. 



.-INTERRUPT MASK — SAYS EXPECTING INTERRUPTS 
INTMASK: .BYTE 0 

; INTERRUPT FLAG — SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 0 

: SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 0 
;SAVE CPU PC 
INTCPC: .WORD 0 



; SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO,-(SP) .-SAVE RO 

IVEC.RO 
fINTR,(RO)* 
fPRI07,(R0)* 
(SP)«,RO 
(SP),-(SP) 
«0.2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



;GET POINTER TO VECTORS 
.'SET UP INTERRUPT VECTOR 

; RESTORE RO 

:SET CPU TO LEVEL 0 



;SUBR0UTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DS6INT: MOV (SP),-(SP) 

MOV fPRl07.2(SP> 

RTI 



B 7 
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INTR - INTERRUPT HANDLERS 
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2986 








.SBTTL 


INTR • INTERRUPT HANDLERS 


2987 












2988 0170S6 








B6NSRV 


INTR .-DEFINE INTERRUPT ENTRY 


017056 








INTR:: 


2989 017056 


012737 


000001 


002172 


MOV 


fl.lNTRECV :SET FLAG TO SHOW INTERRUPT RECEIVED 


2990 017064 


105037 


017005 




CLRB 


INTFLAG ; CLEAR FLAG TO SAY WE GOT INTERRUPT 


2991 017070 


132737 


000001 


017004 


BITB 


flOKSTP.INTHASK :EXPECTIN6 STOP INTERRUPT? 


2992 017076 


001003 






BNE 


n ;BR IF YES 


2993 017100 


152737 


000001 


017005 


BISB 


fflOKSTP. INTFLAG ;N0. SET THE ERROR FLAG. 


2994 










2995 








.SAVE REGISTERS. HSG BUFFER. ETC. 


2996 017106 








IS: 




2997 017106 








ENDSRV 




017106 








L1C026: 




017106 


000002 






RTI 




2998 












2999 













C 7 
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SFQ 80 



3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 017110 
017110 

3016 017112 

3017 017116 
017116 
017122 
017124 
017130 
017132 
017136 
017U0 
017144 

3018 017146 

3019 017152 
3020 

3021 017154 

3022 017156 
017'i56 
017162 
017164 
017170 
017172 
017176 
017200 
017204 

3023 01/206 

3024 017210 

3025 017212 

3026 017214 

3027 017216 

3028 017220 

3029 017222 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

100420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



010000 
000001 
002116 
177772 
177756 
000000 

000001 
002116 
177772 
177756 



.S8TTL UAITF - WAIT FOR SUBSYSTEM READY 
SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAC 
INPUTS: 

ADDRESS OF FIRST DEVICE REGISTER 



R5 

OUTPUTS: 



2$: 



RO 

CARRY 



UAITF:: 



3S: 
4$: 



BREAK 

TRAP 

MOV 

DELAY 

MOV 

.UORD 

MOV 

.UORD 

DEC 

BNE 

DEC 

BNE 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.UORD 

NOV 

.UORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR • TIMEOUT UAITING FOR READY 



C$BRK 

flOOOO.-CSP) 
1 

11, (PC)* 
0 

L$DLY.(PC>* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 

TSSR(RS),RO 
RO 

3S 

1 

fl.(PC)* 
0 

L$DLY.(PC)* 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 
(SP) 
2% 

4$ 

(SP)* 
PC 



; DO A SUPVSR BREAK FIRST. 

:BIG MScC TIMER 
.DELAY 100US 



:READ THE iSSR REGISTER 
;TEST FOR READY BIT SET 

: EXIT ON STOP FLAG. 
: UAIT 100 USEC 



REDUCE DkLAY COUNT 

RETRY UNTIL TIMER EXPIRES 

C = 0. CONTROLLER STILL RUNNING... 
...OR HUNG-UP AFTER 300 MSEC. 

C s 1. CONTROLLER IS STOPPED. 
RESTORE STACK UITHOUT CHANGING CARRY BIT 



0 7 



CZTUZAO TU80 FRONT END PRT D 
CHKTSSR - CHECK TSSR FOR READY 



3031 
3032 
3033 
3034 
303S 
3036 
3057 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
304S 
3046 
3047 
3048 
3049 

3050 017224 

3051 017224 

3052 017230 

3053 017232 

3054 017236 

3055 017240 

3056 017244 
3CSf 017246 

3058 017252 

3059 017254 

3060 017256 

3061 017260 

3062 017262 
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.SBTTL CHKTSSR - CHECK TSSR FOR READV 



THIS ROUTINE WAITS rOR READY IN THE TSSR 
AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



R5 



ADDRESS OF CSR REGISTERS 



OUTPUT: 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS. OR SC SET 



CHKTSSR: 



004737 


017110 




JSR 


PC.UAITF 


;MAIT FOR READY 


103014 






BCC 


20$ 


; BRANCH IF TINE OUT 


004737 


016704 




JSR 


PC.CHKAMB 


:TSSR AMBIGOUS? 


103006 






BCC 


10$ 


'BR IF YES 


032700 


100000 




BIT 


ffSC.RO 


iSPECIAL CONDITION SET? 


001405 






BEQ 


15$ 


:BR IF NO 


032700 


074000 




BIT 


f<$CE!BIE!RNR!NXN>.RO :ANY ERROR BITS SET? 


001402 






6E0 


15$ 


;BR IF NO 


000241 




lot: 


CLC 




:SET FAILURE 


000401 






BR 


20$ 


• 


000261 




15t: 


SEC 




•SET SUCCESS 


000207 




20$: 


RTS 


PC 


.'RETURN TO CALLER 



E 7 
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306^ 
306S 
3066 
3067 
306a 
3069 
3070 
3071 
3072 
3073 
3074 

307S 01726A 
5076 017272 

3077 017300 

3078 017302 
3079 

3080 017304 

3081 017306 

3082 017310 

3083 0173U 
3084 

3085 017516 

3086 017520 

5087 017524 

5088 017526 
017526 
017552 

5089 017554 

5090 017556 

5091 017540 

5092 017542 
5095 

5094 
509S 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5105 
5104 

5105 017544 

5106 017544 

5107 017550 

5108 0175S2 

5109 0175S6 

5110 017560 

5111 017J64 

5112 017566 
5115 017570 

5114 01 7572 

5115 017574 
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.SBTTL XNXN - CHECK FOR NONEXISTENT NEHORY 



SEQ 82 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
ON RETURN. IF « 1, (Rt) > NEXM APDRfSS. 

"C" s 0. ALL ADDRESSES OK. 









I CALL: 


NOV ADR1,R1 












NOV ADR2.R2 












JSR PCNXM 










• 


RETURN 




:TEST "C" AND PROCEED. 


012757 


017316 


AAA A A » 

000004 


; 

XNXM: 


NOV 


ff2S,aff4 


; SET BUSERR VECTOR. 


012757 


AAA AAA 

000200 


A A AAA S 

000006 




NOV 


fPRI04,a«6 




00S005 








CLR 


R5 


.'FLAG. 


00S711 






IS: 


TST 


(R1> 


:TEST THE ADDRESS(ES). 














;IF ANY TRAP. CONTINUE A7 2$. 


020102 








CNP 


R1.R2 


; OTHERWISE. CONTINUE HERE. 


AAA t A4 

001407 








BEQ 


3t 


:BR IF FINISHED (NO NEXN*S). 


062701 


000002 






ADD 


«2.R1 


:SET NEXT ADDRESS... 


000772 








BR 


IS 


;...AND CONTINUE. 


005105 






21: 


CON 


R3 


;60T ONE. SET FLAG... 


012716 


017326 






NOV 


«5S.(SP) 


000002 








RTI 




;...AND DISHISS INTERRUPT... 








5S: 


CLRVEC 


#4 


:...AND GIVE BACK THE VECTOR. 


012700 


000004 






NOV 


ff4.R0 




104456 








TRAP 


CSCVEC 




00S705 








TST 


R5 


;DID »E CATCH ONE ?? 


001401 








BEQ 


.♦4 


;N0. "C" * 0. SKIP NEXT. 


000261 








SEC 




;YES. "C" s 1. (R1) s NEXN ADI 


000207 








RTS 


PC 










.SBTTL 


TSTLOOP - CHECK 


ITERATION COUNT 



005757 
001006 
005757 
100405 
005557 
001002 
000241 
000401 
000261 
000297 



002136 
002152 
002164 



SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT UITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
LOOP COUNTER IS SET BY 'BEGIN.TEST" NACRO. 



; ITERATIONS INHIBITED? 
; YES. 
* NO. 

•LOOPS DISALLOWED IN QUICK PASS. 
: BUHP LOOP COUNTER. 



: CALL: LOOPTO 


ARC 


TSTLOOP:: 




TST 


NOITS 


BNE 


U 


TST 


QVP 


BNI 


1$ 


DEC 


LOOPCNT 


BNE 


28 


U: CLC 




BR 


58 


28: SEC 




5S: RTS 


PC 



;LOOP DISALLOWED. OR DONE. 
:LOOP ENABLED. 



P 7 



CZTUZAO TU80 FRONT END PRT 0 MACRO NIZOO 
TSTLOOP • IH£CK ITERATION COUNT 



3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
312a 
3129 
3130 
3131 
3132 
3133 
3134 
5135 
3136 
3137 
3138 
3139 
3140 
3U1 
5142 
3143 
3144 
3145 
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.SBTTL TSTSETUP - PRINT TcSr NAME AND INIT ERROR COUNTS 



SEQ 83 



PRINT THE NUMBER AiiD NAME OF EACH TEST AS WE CO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 

CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



RS 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



017376 

3146 017376 

3147 017400 

3148 017404 

3149 017410 

3150 017414 

3151 017420 

3152 017424 

3153 017426 

3154 017432 

3155 017434 

3156 017436 

3157 017444 
017444 
017446 
017450 
017452 

3158 017454 
5159 017456 
3160 017464 

017464 
017466 
017470 
017472 
017474 
017502 
017502 
017506 
5163 017510 



5161 
3162 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
10001C 
052760 

104455 
000001 
003636 
005176 
000407 
052760 

104455 
000002 
004233 
000000 
CI 2737 



005106 
017644 
005232 
017004 
002150 

003062 



160000 003130 



160001 003130 3$: 



177777 003060 2$: 



013700 002150 
104451 



TSTSETUP:: 
MOV 
CLR 
CLR 
CLR 
CLRB 
NOV 
ASL 
TST 
BEQ 
BPL 
BIS 
ERRDF 
TRAP 
.WORD 
.yORD 
.UCRO 
BR 
BIS 
ERRDF 
TRAP 
.WORD 
.WORD 
.UORD 
MOV 
DODU 
MOV 
TRAP 



RO.-(SP) 
SIFLA6 
ERRK 
EXTA 
INTHASK 
UNITN.RO 
RO 

NODEV 
48 

f160000.ERTABL(R0) 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT NASK (CNECK ERROR) 
GET THE UNIT NUMBER. 
... AND NAKE IT A UORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 

FLAG ERROR IN THE ERROR TABLE 



1. NXR.NXRERR ; NO DEVICE HERE — PRINT IT 
C$ERDF 

1 

NXR 

NXRERR 

2t 

#160001 .ERTABL(RO) : FLAG ERROR IN THE ERROR TABLE 

2. NQINIT : DEVICE NOT IDLE 
CSERDF 

2 

NOINIT 
0 

f-I.DUFLG ; DROP THE UNIT 

UNITN 

UNITN.RO 

C8D0DU 

um} m PASS 



CZTUZAO TU80 FRONT END PRT D MACRO MIZGO 29-NAR-83 13:43 
TSTSETUP - PRINT TEST NAME AN!) INIT ERROR COUNTS 



G 7 
PAGE S8-1 



SEQ 64 



017510 
3164 017512 
3165 

3166 017514 
017514 

3167 017516 

3168 017522 

3169 017524 

3170 017526 
017526 
017530 
017534 
017540 
017542 
017544 

3171 017550 

3172 017554 
017554 
017560 

3173 017562 

3174 017564 

3175 017570 

3176 017572 
3177 



104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

013700 
104441 
005726 
G1370S 
000207 
045 



001000 



017572 
000002 



000006 
002162 

002160 



C02154 
123 



41: 



II: 

5$: 
045 TNAH: 



TRAP 
BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRJNTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

SETPRI 

NOV 

TRAP 

TST 

NOV 

RTS 

.ASCIZ 

.EVEN 



CSDCLN 
St 

RO 

CSRrtA 

fPNT«RO 

It 

(SP).RO 

fTNAN«R0 

RO.-(SP) 

#TNAM«-(SP> 

#2.-(SP) 

SP.RO 

CtPNTF 

«6,SP 

TSTCNT 

IPRI 

IPRI.RO 

CtSPRI 

(SP)* 

CSRADDR.R5 
PC 

'XSXTXA T«$t* 



: GET THE OPERATOR FLAGS. 

; PRINT THE TEST NUMBERS? 
: BR IF NO 
;GET THE !D MESSAGE 
;DISPLAY THE TEST ID 



; BUMP TEST COUNTER. 
:PRIORITY THAT OF DEVICE 



;FIX UP THE STACK 

: ADDRESS OF TSV REGISTERS ON JNIBUS 



H 7 



CZTUZAO TUSO FRONT END PRT 0 MCRO »1200 
TSTENO - PRIMT ERRORS RECEIVED 



3179 
3180 
3181 
3182 
3183 

3184 017606 
017606 

3185 017610 

3186 0176U 

3187 017616 
017616 
017622 
017626 
017652 
017634 
017636 

3188 017642 
3189 

3190 017644 

3191 017646 

3192 017665 
3193 

3194 
3195 
3196 
3197 
3198 

3199 017732 

3200 017756 
5201 017740 
3202 017744 
3205 017746 

5204 017752 

5205 017754 

5206 017760 

5207 017762 

5208 017764 

5209 017766 
5210 

5211 017770 

5212 017772 
5215 017776 

5214 020000 

5215 020004 

5216 020010 

5217 020C14 

5218 020016 

5219 020024 

5220 020026 
020026 

5221 020050 

5222 020054 
5225 020056 
5224 020044 

020044 
020046 
020050 
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.SBTTL TSTENO - PRINT ERRORS RECEIVED 



SEQ 85 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 
105 



AT END OF EACH TEST. PRINT THE NUMBER OF ERRORS RECEIVED 
IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 



020000 



017644 
017646 
000002 



000006 



101 
122 



040 
122 



STEND: RFLA6S 
TRAP 
BIT 
BEQ 
PRINTF 
NOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

It: RTS 

ERRK: 0 
ESUM: .ASCIZ 
EMAXDU: .ASCIZ 
.EVEN 



BR IF "lER" NOT SET. 
PRINT ERROR COUNT. 



RO 

CSRFLA 

RO^flER 

It 

lESUM.ERRK 

ERRK,-(SP) 

fESUM,-(SP) 

f2.-(SP) 

SP.RO 

CtPNTF 

f6,SP 

PC 



: LOCAL ERROR COUNT. 

/SA XDXA ERRORS/ 

/ERROR LIMIT REACHED — DROPPING mil/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



I* 



: ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT; 



005257 
010046 
015700 
006500 
062700 
005210 
052710 
001001 
005310 
012600 
000207 



017644 
002150 
005150 
007777 



INCERK: 



INC 
MOV 
MOV 
ASL 
ADD 
INC 
BIT 



It: 



DEC 
MOV 
RTS 



010046 






CKEMAX: 


MOV 


015700 


002150 






MOV 


006500 








ASL 


016000 


005150 






MOV 


042700 


170000 






BIC 


020057 


002142 






CMP 


105004 








BHIS 


025757 


017644 


002140 




CMP 


105417 






It: 


BLO 
RFLA6S 


104421 








TRAP 


052700 


000040 






BIT 


001015 








BNE 


012757 


177777 


00506C 




MOV 
ERRDF 


104455 








TRAP 


000004 








.WORD 


017665 








.UORD 



ERRK 
RO,-<SP> 
UNITN.RO 
RO 

fERTABL.RO 

(RO) 

#7777. (RO) 
It 

(RO) 

;SP)«.RO 
PC 

RO,-(SP) 
UNITN.RO 
RO 

ERTABL(RO).RO 
f 170000.ro 
R0.6ERRNAX 
It 

ERRK.LZRRMAX 

2t 

RO 

CtRFLA 

fIDU.RO 

2t 

f-1 .DUFLC 

4.EHAX0U 

CtERDF 



INCREMENT LOCAL ERROR COUNT 
SAVE RO 

GET UNIT NUMBER. 

... AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES — BACK IT UP TO 7777. 
RESTORE RO 
RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 
BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES. 

NO — DROP THE UNIT 



CZTUZAO T-J80 FROMT EMD PRT 0 MACRO NIZOO 
INCERK • INCREMENT LOCAL ERROR COUNT 



I 7 
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SEQ it 



020052 

3225 020054 
020054 
020060 

3226 020062 
020062 

3227 020064 

3228 020066 
3229 

3230 
3231 
3232 
3233 
3234 
3235 

3236 020070 

3237 020070 

3238 020074 

3239 020100 

3240 020102 

3241 020110 

3242 020114 

3243 020122 

3244 020124 
020124 

3245 020126 

3246 020132 

3247 020134 

3248 020140 
3249 

3250 
3251 



000000 

013700 002150 
104451 

104444 
012600 
000207 



2t: 



FATCHK: 



013701 002150 
006301 

062761 000001 003130 

005257 002170 

023727 002170 000031 
002406 

104421 

032700 040000 
001002 

004737 020142 
000207 



9S: 



.UORD 

DODU 

NOV 

TRAP 

OOCLN 

TRAP 

NOV 

RTS 

.S8TTL 



0 

UNITN 

UNITN.RO 

C«OODU 

CSDCLN 
<SP)*,RO 
PC 



RESTORE RO 
RETURN TO CALLER 



FATCNK • INC FATAL ERRORS AND CHECK FOR LIMIT 



CHECK FATAL COUNTER. AFTER INC, FOR MORE THAN 25 
ERRORS AND IF OVER CALL UNIT DROP ROUTINE 



SAVRE6 




.•BETTER SAVE THE REGISTERS 




NOV 


UNITN, R1 


.•PICK UP THE UNIT NUMBER 




ASL 


R1 


;NAKE IT INTO A BYTE OFFSET 




ADD 


fl.ERTABL(RI) 


;ADD 1 TO THE PROPER UNIT'S ERROR 


COUNTER 


INC 


FATFL6 


;BUMP FATAL ERROR COUNTER 




CMP 


FATFL6.«25. 


; CHECK AGAINST 25 




BLT 


9S 


;Bft. IF LF.SS THAN 25 ERRORS 




RFLA6S 


RO 


;READ THE FLAGS INTO RO 




TRAP 


CSRFLA 




BIT 


fBlT14.R0 


:BR. IF LOOP Ori ERROR IS SET 




BNE 


9t 


:0THERU1SE NEVER BE ABLE TO SCOPE 


ETC. 


JSR 


PC.CKDROP 


:OROP UNIT IF ALLOUED 




RTS 


PC 


: RE TURN ETC. 





CZTUZAO TU8C fRONT END PRT D NACRO N1200 
CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



S253 

5255 
5256 

5257 020U2 
325S 020U4 

3259 020154 
020154 

3260 020156 

3261 020162 

3262 020164 

3263 020166 

3264 020174 
020174 
020200 

3265 020202 
020202 

3266 020204 

3267 020206 
3268 

3269 
3270 
3271 
3272 
327i 
3274 
3275 

3276 020210 

3277 020210 

3278 020214 
3279 

3280 
5281 
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.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



CHECK IF UNIT SHOULD BE DROPPED 



010046 



104421 

032700 000040 

001010 

011600 

012737 177777 003060 

013700 002150 
104451 

104444 
012600 
000207 



CKDROP: MOV RO,-(SP) 

FORCERROR 1$,N0TSSR 
RFLA6S RO 

CSRFLA 
#IDU,RO 
U 

(SP),RO 
f-1 .DUFLG 
UNITN 
UNITN.RO 
CSDODU 



1$: 



TRAP 
BIT 
BNE 

nov 

NOV 
DODU 
NOV 
TRAP 
DOCLN 
TRAP 
NOV 
RTS 



CSDCLN 

<SP)*.RO 

PC 



;A60RT THE PASS 



004737 016634 
000207 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
• SUBROUTINE - DETERMINE CONFIGURATION OF TU80 SYSTEM. 
CONFIG: 



JSR 
RTS 



PC.SOFINIT 
PC 
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KTON.KTOFF • ENABLE/DISABLE HENORV HANAGENENT 

.SBTTL 



K 7 
PAGE 61 



3283 




3284 




3285 




3286 




3287 020216 


005737 


3288 020222 


001403 


3289 020224 


012737 


3290 020232 


000207 


3291 




3292 




3293 




3294 




329S 




3296 




3297 020234 


005737 


3298 020240 


001405 


3299 020242 


000240 


3300 020244 


000240 


3301 020246 


012737 


3302 020254 


000207 


3303 




3304 





003100 
000001 



177572 



003100 



000000 177572 



SUBROUTINE 
KTON: 



IS: 



TST 
BEQ 
HOV 
RTS 



KTON^KTOFF 

ENABLE HEM H6T. 

KTFL6 
It 

«1,SR0 
PC 



SUBROUTINE - DISABLE MEN H6T. 
KTOFF: 



1$: 



TST 
BEQ 
NOP 
NOP 
NOV 
RTS 



KTFL6 
U 



fO^SRO 
PC 



SEQ 88 



- ENABLE /DISABLE MEMORY MANAGEMENT 



GOT KT? 
NO. 

YES. ENABLE KT11. 



GOT KT11? 
NO. 



DISABLE KT. 



L 7 



CZTUZAO TUaO FRONT END PRT D 
SETNAP - SETUP PAR6 MAPPING 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

33U 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

3323 

3324 

3325 020256 

3326 020256 

3327 020262 005737 003100 

3328 020266 00U33 

3329 020270 010102 

3330 000006 
3331 

3332 
3333 

3334 020322 042701 000177 

3335 020326 020137 003100 

3336 020332 103011 

3337 020334 010137 172354 

3338 020340 042702 160000 

3339 020344 062702 1 40000 

3340 020350 010200 

3341 020352 000261 

3342 020354 000401 

3343 020356 000241 

3344 020360 000207 
3345 
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SEQ 89 



.SBTTL SETNAP - SETUP PAR6 HAPPING 



THIS ROUTINE SETS uP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
R1 



OUTPUTS: 



RO 

CARRY 



SETflAP: 



10$: 
15S: 



SAVRE6 

TST 

BEQ 

NOV 

.REPT 

ASR 

ROR 

.ENDR 

BIC 

CNP 

BHIS 

NOV 

BIC 

ADD 

NOV 

SEC 

BR 

CLC 

RTS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFL6 

10$ 

RUR2 

6 

RO 

R1 

f177.R1 

R1.KTFLG 

108 

R1.afKIPAR6 
#160000 ,R2 
f140000,R2 
R2.R0 

158 

PC 



:SAVE R1-R4 UNTIL NEXT RETURN 
;SYSTEN HAVE ABOVE 28K? 
'BR IF NO 

iSAVE LOW ORDER BITS 

.•CONVERT WORD ADDRESS TO 32W BLOCKS 
;MAKE IT DUUBLE PRECISION 

;ALINE FOR LOWER 4K BOUNDARY 
.•HIGHER THAN EXISTING MEMORY? 
:BR IF YES 

:SETUP HAPPING REGISTER PAR6 
;SETUP DISPLACEHENT IN PAGE 
:ADD IN PAR6 BIAS 
; RETURN IN RO 
;SET SUCCESS 

* 

•SET FAILURE 
.•RETURN 



N 7 
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FILLMEN - FILL HEMORY WITH BACKGROUND PATTERN 



PAGE 63 



SEQ 90 



3347 
3348 
3349 
33S0 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
1361 

3362 020362 

3363 020362 

3364 020366 

3365 020372 

3366 020374 

3367 020400 

3368 020404 

3369 020406 

3370 020410 

3371 020412 

3372 020416 

3373 020420 

3374 020424 

3375 020426 
3376 

3377 
3378 
3379 
3380 

3381 020476 

3382 020502 

3383 020504 

3384 020510 

3385 020512 

3386 020516 

3387 020524 

3388 020532 

3389 020534 

3390 020540 

3391 020544 
3392 

3393 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 



020234 

003072 
003074 



003100 
020216 
003104 



020256 

160000 

020000 
000200 
172354 

020502 
020234 



.SBTTL FILLHEM - FILL HENORY WITH BACKGROUND PATTERN 
FILL MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO s BACKGROUND PATTERN 



FREE 
KTFL6 

OUTPUTS: 

NONE 



FILLNEM: 



10S: 



30S: 



172354 
003100 



50S: 
SSS: 



SAVREC 

JSR 

NOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

NOV 

.REPT 

CLC 

ROL 

ROL 

.ENOR 

JSR 

MOV 

CMP 

BLO 

SUB 

ADD 

CMP 

BEQ 

JMP 

JSR 

RTS 



s FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
s SET TO HIGHEST MEMORY LOCATION IF > 28K. 



PCKTOFF 

R0.R3 

FREE.R1 

FRESIZ,R2 

R3,(R1)^ 

R2 

10S 

KTFL6 

55S 

PC.KTON 
RO 

PST32W.R1 
6 

R1 
RO 

PCSETMAP 
R3.(R0)^ 
R0.f160000 
301 

«20000.R0 

#200.afKIPAR6 

afKlPAR6.KTFL6 

501 

30$ 

PCKTOFF 
PC 



SAVE RI'RS UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
END OF PAR6 HAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
END OF MEMORY? 
BR IF YES 
KEEP GOING ON ETC. 
DISABLE KT. 



N 7 
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CMPMEM - COMPARE NEMORV TO BACKGROUND PATTERN 
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SEQ 91 



3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 020546 

3418 020546 

3419 020552 

3420 020554 

3421 020560 

3422 020564 

3423 020570 
020572 
020574 

3426 020600 

3427 020604 

3428 020610 

3429 0206*. 4 

3430 020616 

3431 020620 

3432 020622 

3433 020624 

3434 020630 

3435 020632 

3436 020636 

3437 020640 
3438 

3439 
3440 
3441 

3442 020674 

3443 020700 

3444 020702 

3445 020704 

3446 020710 

3447 020712 

3448 020714 

3449 020716 

3450 020720 

3451 020722 



3424 
3425 



.SBTTL CnPMEM • COMPARE MEHORV TO BACKGROUND PATTERN 

y 

COMPARE MEMORY WITH A BACKGROUND PATTERN 
INPUTS: 

RO a BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 
KTFLG s SET TO HIGHEST MEMORY LOCATION IF > 28K. 



OUTPUTS: 



CARRY - SET IF NO ERROR 

CARRY - CLR IF ERROR 

IMPLICIT OUTPUTS: 

ERRHI - ERROR HIGH ADDRESS 

ERRLO - ERROR LOU ADDRESS 

EXPD - EXPECTED DATA 

RECV - RECEIVED DATA 



CMPMEM: 







SAVRE6 




010003 




MOV 


R0,R3 


004737 


020234 


JSR 


PC.KTOFF 


013701 


003072 


MOV 


FREE.RI 


013702 


003074 


NOV 


FRESIZ,R2 


020311 




10$: CMP 


R3,(R1) 


001411 




BEO 


15$ 


010137 


002204 


MOV 


R1, ERRLO 


005037 


002202 


CLR 


ERRHI 


010337 


002176 


MOV 


R3«EXPD 


011137 


002200 


MOV 


(RD.RECV 


000474 




BR 


50$ 


005721 




15$: TST 


(R1)« 


005302 




DEC 


R2 


003362 




BGT 


10$ 


005737 


003100 


TST 


KTFLG 


001472 




BEQ 


55$ 


004737 


020216 


JSR 


PCKTON 


005000 




CLR 


RO 


013701 


003104 


MOV 


PST32U,R1 


000006 




.REPT 
ROL 
ROL 
.ENDR 


6 

R1 

RO 


042701 


000177 


SIC 


#177,R1 


010046 




MOV 


RO,-(SP) 


010146 




MOV 


RI.-(SP) 


004737 


020256 


JSR 


PCSETNAP 


010004 




MOV 


R0.R4 


012601 




NOV 


(SP)«,R1 


012600 




NOV 


(SP)*.RO 
R3,(R4) 


020314 




30$: CMP 


001411 




BEQ 


32$ 


010037 


002202 


NOV 


RO.ERRHl 



SAVE R1-R5 UNTIL NEXT RETURN 
COPY TEST PATTERN 
DISABLE KT. 

GET FIRST FREE LOCATION 
SIZE OF FREE SPACE BELOU 28K. 
FREE SPACE LOCATION EQUAL TO EXPD? 
BR IF YES 

SAVE ADDRESS IN ERROR 
NO HIGH ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL NENORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
NIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32U BLOCKS) 



; CONVERT BLOCKS TO WORDS 
;NAKE IT DOUBLE PRECISION 

; ALINE 4K BOUNDARY 

.-SAVE HIGH ORDER 

;SAVE LOW ORDER 

; SETUP PAR6 MAPPING REGISTER 

.•COPY ADDRESS BIASED TO PAR6 

; RESTORE LOW ORDER IN NON PAR6 FORMAT 

.•RESTORE HIGH ORDER IN NON PAR6 FORMAT 

;ABOVE 28K LOCATION EQUAL EXPD? 

:BR IF YES 

:SAVE HIGH ORDER IN ERROR 



CZTUZAO TU80 FRONT END PRT D MACRO HI 200 29-nAR-8S 
CMPHEH • COMPARE HEWRY TO BACKGROUND PATTERN 

3452 020726 010137 002204 MOV 

3453 020732 010337 002176 MOV 

3454 020736 011437 002200 MOV 

3455 020742 000421 BR 

3456 020744 062701 000002 32$: ADD 

3457 020750 OOSSOO ADC 
345S 020752 062704 000002 ADD 

3459 020756 020427 160000 CNP 

3460 020762 103755 BLO 

3461 020764 162704 020000 SUB 

3462 020770 062737 000200 172354 ADD 

3463 020776 023737 172354 003100 CMP 

3464 021004 101744 BLOS 

3465 021006 004737 020234 SOS: JSR 

3466 021012 000241 CLC 

3467 021014 000403 BR 

3468 021016 004737 020234 55S: JSR 

3469 021022 000261 SEC 

3470 021 C24 000207 60S: RTS 
5471 



6 B 
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SEQ 92 



R1.ERRL0 


SAVE LOU ORDER IN ERROR 


R3«EXPD 


SAVE EXPD FOR ERROR REPORT 


(R4),RECV , 


SAVE RECV FOR ERROR REPORT 


50* , 




#2,NI 


UPDATE NON PAR6 ADDRESS 


RO 


'MAKE IT DOUBLE PRECISION ADD 


f2*R4 


UPDATE PAR FORMAT ADDRESS 


R4,# 160000 


;END OF PAR6 MAPPING AREA? 


SOS 


>6R IF NO 


#20000 *R4 


;BACKUP INTO PAR6 MAPPING BEGIN 


f200,af<(lPAR6 


; POINT TO NEXT 4K BLOCK >28K. 


iffXlPAR6«KTFLG 


;END OF MEMORY? 


SOS 


;BR IF NO 


PC.KTOFF 


;TURN OFF MEMORY MAPPING 




;ScT FAILURE 


60S 




PC.KTOFF 


■TURN OFF MEMORY MAPPING 




;SET SUCCESS 


PC 





C 8 



CZTUZAO TU80 FRONT END PRT D 
REGSAV - SArfE R1-RS ON STACK 



5475 

5474 

5475 

5476 

5477 

547% 

5479 

5480 

5481 

5492 

5485 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5495 021026 
3494 021026 
021026 

5495 021050 

5496 021052 

5497 021034 

5498 021056 
3499 021040 
7500 021042 
3501 021046 
5502 021 OSO 
3S03 021052 

5504 021054 

5505 021056 

5506 021060 
3507 021062 

021062 
5508 021064 
3509 
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.S8TTL REGSAV - SAVE Rl-fiS ON STACK 

♦ 

ROUTINE TO 

SAVE R1 THROUGH RS ON THE STACK 

CALLING SEQUENCE: 

JSR RS. REGSAV 

THIS IS A C03R0UTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



SEQ 95 



REGSAV: 





BREAK 




104422 


TRAP 


CSBRK 


010446 


mv 


R4.-(SP) 


010346 


mv 


R3,-(SP) 


010246 


HOV 


R2.-(SP> 


010146 


NOV 


R1.-<$P) 


010546 


NOV 


R5.-($P) 


016605 000012 


NOV 


10.(SP),RS 


004736 


JSR 


PC«B(SP)^ 


012601 


NOV 


(SP)«.R1 


012602 


NOV 


(SP)«.R2 


012605 


NOV 


($P)«.R3 


012604 


NOV 


(SP)t,R4 


012605 


NOV 


(SP)*.RS 




BREAK 




104422 


TRAt» 


CURK 


000207 


RTS 


PC 



:L00K FOR CNTL C 



:L0OK FOR CNTL C 



D 8 



CZTUZAO TU80 FRONT END PRT 0 MACRO Ml 200 
GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
352A 
3525 
3526 
3527 
3528 
3529 

3530 021066 

3531 021066 

3532 021072 
021072 
021074 
021076 
021100 
021102 
021104 
021106 
021110 
021112 

3533 021112 
021112 

3534 021114 

3535 021120 
3536 

3537 
3SS8 
3539 
3540 

3541 021122 

3542 021124 
3543 



104443 
000406 
021122 
000022 
021124 
000377 
000000 
000377 



103367 

013700 021122 
000207 
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.S3TTL 6ET0AT - GET 8 BIT PATTERN FROM OPERATOR 



ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OP£<«ATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC.CETPAT 



GETPAT:: 
1$: 



10000S: 



SAVREG ;SAVE THE GENERAL REGISTERS 

GMANIO DATASC.PATDAT,0,377«0.377.NO 

TRAP CSGMAN 

BR 10000$ 

.WORD PATDAT 

.UORD TtCODE 

.WORD DATASC 

.WORD 377 

.WORD TtLOLIM 

.UORD TSHILIM 



BNCOMPLETE II 
BCC IS 
MOV PATDAT «R0 
RTS PC 



;RETRV IF ERROR 

.•DATA PATTERN FROM OPERATOR 
; RE TURN TO CALLER 



; LOCAL DATA AREA 



000000 
105 



116 



PATDAT: .UORD 0 ; TEMPORARY STORAGE FOR DATA 

124 DATASC: .ASCIZ 'ENTER DATA PATTERN* 
.EVEN 



E 8 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



3545 
3546 
3547 
3548 
3549 
3550 
355'i 
3552 
3553 
3534 

3555 021150 

3556 021150 

3557 021154 

3558 021156 

3559 021160 

3560 021162 

3561 021164 
021164 
021166 
021172 
021176 
021200 
021202 

3562 021206 

3563 021210 
021210 
021212 
021214 
021216 
021220 
021222 
021224 
021226 
021230 

3564 021230 
021230 

3565 021232 

3566 021236 

3567 021240 

3568 021242 
021242 
021246 
021252 
021254 
021256 

3569 021262 

3570 021264 

3571 021266 

3572 021334 

3573 021541 
3574 

3575 021370 



.SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A HENU AND GET 
THE OPERATOR'S RESPONSE. 

INPUTS: 

ADDRESS OF ASCIZ STRING OF MENU 
MAXimm ALLOWABLE OPERATOR RESPONSE 



RO 
R1 

OUTPUTS: 
RO 



NUMBER OF TNE OPERATOR'S SELECTION 



GETSEL:: 



010002 
010203 
005713 
001412 

012346 

012746 021334 
012746 000002 
010600 
104417 

062706 000006 
000764 

104443 
000406 
021370 
000042 
021341 
177777 
000000 
177777 



IS: 
28: 



3$: 



100018: 



SAVREG 

NOV 

MOV 

TST 

BEQ 

PRINTF 

NOV 

NOV 

NOV 

NOV 

TRAP 

ADD 

BR 

GNANID 

TRAP 

BR 

.yORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



103352 
013700 
020001 
101411 

012746 
012746 
010600 
104417 
062706 
000735 
000207 
045 
045 
105 

000000 



021370 



021266 
000001 



000004 



116 
116 
156 



58: 

045 KNERR: 
045 SELASC: 
164 NENASC: 

NENRES? 



R0,R2 
R2.R3 
(R3> 
38 

«SELASC,(R3)* 
(R3)*,-(SP> 
«SELASC,-(SP) 
«2.-(SP> 
SP.RO 
C8PNTF 
«6.SP 
28 

NENASC.NENRES,D.-1 .0.-1 .NO 

C86NAN 

100018 

NENRES 

T8C0DE 

NENASC 

-1 

T8L0LIN 
T8HIL1N 



:SAVE GENERAL REGISTERS 
;SAVE THE NENU ADDRESS 
.•START OF NENU STRING 
:END OF ASCII ? 

:BRANCH IF ALL LINES DISPLAYED 
.•DISPLAY THE NENU 



BNCONPLETE 18 :RETRY IF ERROR 



.-GET THE OPERATOR'S REPLY 
: COMPARE TO NAXINUN ALLOWED 
;BRANCH IF OK 
:D1 SPLAY ERROR MESSAGE 



BCC 18 

NOV NENRES.RO 

CNP R0.R1 

BLOS 58 

PRINTF fNENERR 

NOV ffMENERR.-(SP) 

NOV #1.-(SP) 

NOV SP.RO 

TRAP C8PNTF 

ADD f4.SP 

BR 18 :RETRY 

RTS PC : RETURN TO CALLER 

.ASCIZ 'MIA •** Ntnu Stltctlon Too Largt •••* 

.ASCIZ 'XNXT' 

.ASCIZ 'Enttr Ntnu Sc ltd ion: * 
.EVEN 

.WORD 0 



F 8 
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SEQ 96 



3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 021372 

3600 021372 

3601 021376 
021376 

3602 021400 
021400 

3603 021402 
021402 
021406 
021412 
021414 
021416 

3604 021422 

3605 021424 
3606 

3607 021426 
3606 



.SBTTL CNKMAN • CHECK MANUAL INTERVENTION LEGAL! TV 

♦ 

ROUTINE TO TEST 'OR MANUAL INTERVENTION LEGALITY. 
INPUT: 

NONE. 

OUTPUT: 



CARRY 0 
1 

SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CHKNAN: 



104450 
103411 

012746 021426 
012746 000001 
010600 
104417 

062706 000004 

000241 

000207 



SAVREG 
MANUAL 

TRAP CSMANI 
BCOMPLETE It 



045 



116 



045 



U: 

NONAN: 



BCS 
PRINTF 
MOV 
NOV 
MOV 
TRAP 
ADD 
CLC 
RTS 

.ASCI 2 
.tvtn 



1$ 
fNONAN 

fNOMAN.-(SP) 

#1.-(SP) 

SP.RC 

CSPNTF 

f4.SP 

PC 



.SAVE THE REGISTERS 

;SEE IF HANUAL INTERVENTION OK 

:BRANCH IF ALLOWED 

.•PRINT THE WARNING MESSAGE 



; CLEAR CARRY FOR ERROR 
.•RETURN 



*XNXA M«nu«l Intcrvtntlon not AUoutd • Ttst Aborted 



G 8 



CZTUZAO TU80 FRONT END PRT D MACRO N1200 
ENVIRN - SETUP FREE DIAGNOSTIC SPACE 



3610 








3611 








3612 








3613 

3614 021 S22 














021522 


104431 






3615 021524 


010037 


003072 




3616 021530 


062757 
011037 


000002 


003072 


3617 021536 


003074 


3618 021542 


162737 


000004 


003074 


3619 021550 


013702 


002012 




3620 021554 


162737 


000007 


003074 


3621 021562 


005302 


3622 021564 


001373 






3623 021566 


013700 


003072 




3624 021572 


063700 


003074 




3625 021576 


162700 


000002 




3626 021602 


010037 


003076 




3627 021606 


000207 






3628 
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.SBTTL ENVIRN • SETUP FREE DIAGNOSTIC SPACE 



SEO 97 



SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



ENVIRN: MEMORY 
TRAP 
MOV 
ADD 
MOV 
SUB 
MOV 

lot: SUB 
DEC 
BNE 
MOV 
ADD 
SUB 
MOV 
RTS 



RO 

CSNEH 

RO.FREE 

f2.FREE 

(RO).FRESIZ 

f4.FRESIZ 

LtUNn,R2 

•7.FRESIZ 

R2 

10S 

FREE.RO 

FRESIZ.RO 

#2.R0 

RO.FREEHI 

PC 



: GET 1ST FREE ADDRESS... 

:...AND WORD COUNT. 

; GET NUMBER OF UNITS 

; TAKE AWAY 7 WORDS PER UNIT 



;6ET FIRST FREE ADDRESS 
:P0INT TO LAST FREE ADDRESS 
; BACKUP 1 WORD 
: STORE LAST FREE ADDRESS 
: RE TURN 



H 8 
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SEO 98 



3630 
3631 
3632 
3633 

3634 021610 

3635 021610 

3636 0216U 

3637 021620 

3638 021626 

3639 021630 

3640 021634 

3641 021642 

3642 021646 

3643 021650 

3644 0216S6 
S64S 021664 

3646 021670 

3647 021672 

3648 021676 

3649 021704 

3650 021706 
5651 021712 

3652 021716 

3653 021720 

3654 021724 

3655 021726 

3656 021752 

3657 021754 
5658 021740 
5675 021742 

021742 

5674 021742 

5675 021752 



005037 

005037 

023727 

101444 

013700 

012737 

005757 

000240 

013757 

042737 

CI 0057 

005000 

012701 

012761 

010021 

062700 

020027 

001367 

012741 

000405 

012716 

000002 

010057 

000207 



003100 
003102 
002120 

000004 
021726 
177572 

002120 
000177 
000004 

172540 
077406 

000200 
002000 

177600 

021754 

000004 



.SBTTL KTINIT - SETUP KT11 NENORV NANAGENEMT REGISTERS 

♦ 

ROUTINE TO INIT KT-11 
KTINIT: 



001577 
000004 



005100 
005100 



177740 



177777 177777 177777 





CLR 


KTriG 


INIT >28K NENORV FLAG 




CLR 


KTENABLE 


INIT TEST >28K FLAG 




CNP 


lSMinE,«1S77 


' GOT ENOUGH NENORV (>28K)^ 




BLOS 


9ft 


NO. 




NOV 


BfERRVEC.RO 


■ SAVE OLD ERR VEC PTR. 




NOV 


f2ft.a#ERNVEC 


■ SET ERR VEC PTR. 




TST 


atsRO 


; GOT KT11? 




NOP 




• (TRAP IF NO). 




NOV 


LftHlNE.KTFLG 


; TES. SET KT FLAG. 




SIC 


«177,KTFLG 






NOV 


RO.BfEiiRVEC 


; RESTORE OLD ERR VEC PTR. 




CLR 


RO 


; RO » AR DATA. 




NOV 


fKIPARO.RI 


; R1 « KI REGS PTR. 


U: 


NOV 


#77406. -40 (R1) 


; SET DESCRIPTOR REG. 




NOV 


R0.(R1)« 

ff200.R0 

R0.ff2000 


; SET KIPAR REG. 




ADO 


; BUMP AR DATA BY "4K". 




CNP 


! AT "I/O"? 




BNE 


1ft 


; NO. 




NOV 


f177600,-(R1) 


; YES. SET KTPAR7 FOR I/O. 




BR 


9ft 




2ft: 


NOV 


ff6ft,(SP) 


; SET UP RETURN 




RTI 


RO.BfERRVEC 


; RTI TO N^XT LOCATION 


6ft: 


NOV 


; RESTORE OLD ERR VEC PTR. 


9ft: 


RTS 

B6NPR0T 


PC 




LftPROT: 


• 








'.WORD 


-1, -1. -1. -1 :N0 DEVICE PROTECTION REQUI 




ENDPROT 







I 8 



CZTUZAO TU80 FRONT END PRT D 
INIIIALIZE SECTION 



3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 

3690 021 7S2 
021 7S2 

3691 021752 

3692 021752 

3693 021760 
369< 021764 

3695 021770 

3696 021774 
021774 
022000 

3697 022002 
022002 103023 

3698 022004 023737 

3699 022012 103073 

3700 022014 005737 

3701 022020 100475 

3702 022022 013701 

3703 022026 006301 

3704 022030 005761 

3705 022034 001521 

3706 022036 032761 

3707 022044 001063 

3708 022046 
022046 104432 
022050 000430 

3709 022052 
022052 012700 
022056 104447 

3710 022060 
022060 103055 

3711 022062 
022062 012700 
022066 104447 

3712 022070 
022070 103404 

3713 022072 
022072 012700 
022076 104447 

3714 022100 
022100 103034 

3715 022102 

3716 022102 
022102 

3717 022104 
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.SBTTL INITIALIZE SECTION 



SEQ 90 



THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING 0^ EACH PASS. 

IF "START" OR "RESTART", SET OUICK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE". NOTHING IS REQUIRED. 



INSERT TEMPORARY JUMP TO ODT 



012737 005672 002146 

005037 003106 

005037 003102 

005037 002246 

012700 000036 
104447 



002150 002012 
003060 
002150 
003130 

040000 003130 



LSINIT:; 
40S: 



B6NINIT 



000035 



000040 



000037 



11: 



2$: 



NOV 
CLR 
CLR 
CLR 
READEF 
NOV 
TRAP 
BNCOMPLETE 1$ 

see 

CMP 
SHIS 
TST 
BNI 
NOV 
ASL 
TST 
BEQ 
BIT 
BNE 
EXIT 
TRAP 
.UORD 
READEF 
NOV 
TRAI* 



fEPRTI.EPRTSy 
SIFLAG 
KTENABLE 
RAMSIZ 
fEF. CONTINUE 
#EF. CONTINUE ,R0 
CSREFG 



:SET UP PRIMARY MESSAGE FOR REPLACEMENT 

.•CLEAR "SOFT INIT" FLAG 

.•CLEAR TEST ABOVE 28K FLAG 

: CLEAR RAH SIZE FOR RAMERR ROUTINE 



1$ 

UNITN.LSUNIT 
4$ 

DUFLG 
NXTU 
UNITN.RI 
R1 

ERTABL(RI) 
SETU 

fBlTU.ERTABLCRI 

NXTU 
INIT 
CSEXIT 
L10030-. 
fEF .NEW 
fEF.NEU.RO 
CSREFG 
BNCOMPLETE NXTU 
BCC NXTU 
READEF fEF. START 
MOV fEF. START. RO 
TRAP CSREFG 
BCONPLETE 2% 
BCS 2t 
READEF fEF. RESTART 

MOV f ef.restart.ro 

TRAP CSREFG 
BNCOMPLETE 31 S 
BCC 31S 



UNIT IN RANGE? 
BR IF NO. 
DROPPED UNIT? 
BR IF YES 



) : DROPPED? 

:D0 NOTHING IF *XONTINUE". 



;TAKE NEXT UNIT IF NOT NEU PASS. 



104433 

005037 002162 



BRESET 

TRAP 

CLR 



CSRESET 
TSTCNT 



;1ST PASS. BUS-INIT... 
;BUS RESET. 

.MUMBfR OF TtSTS RUM IN 



J 8 

StO 100 
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INITIALIZE SE.TION 



lYift 099110 


001017 


009170 

WC 1 ■ V 












V10 07911& 

^ • 1 T wC Kill 


000406 








PR 


19ft 

1 WW 


•BR IF THF FIA6 \%, MOT SFT 


■^790 














•(MO DFBUGfiFR FTC ) 


'1791 099116 


01 9746 

V 1 Cr "Iv 


000140 






MOV 

ItVw 


W - ^V #1 / 




099°i99 


01 9746 

VIC' "Iw 


09J1 Y6 

VCC I Jw 






MOU 
riv» 




•RFTURN TO DFBUGGFR 

• nC 1 vnil IV VCOVVWCn 


\7PX 0991 


000117 

VW 1 Jl 


064494 








0 DOT 


••aaENTER THE DFBllCGFR 


«7P4 0991^9 

31 CI VCC 1 JC 


001017 


001119 




1 • 


fLR 




•CLFAR the SUBTEST "SKlPPFR" 


172$ 0991 








CV9 • 








3726 022136 

Cm VCC 1 


012737 

V < C * J» 


177777 


002152 

WC 1 ^c 




MV 

flV V 




..QUICK VERIFY 


1727 029144 

JrCr VCC 1 "1*1 




021 192 
VC 1 ^cc 






ISR 




•SET ENVIRONMENT 


172t 022110 

V« CO VCC 1 ^v 


004737 


091610 

VC 1 W 1 V 






JSR 


PC KTINIT 
*ft»#Mi im ■ 


•INITIALIZE KT MEPIORV MANAGEMENT 


3729 022134 

3f Cr VCC 1 


01 2700 

V < c * w 


0031 30 

VV^ 1 JV 






MOV 


fERTABL RO 




3730 022160 


005020 

W^VCV 






30ft: 


CLR 


(R0)« 


* CLEAR THE ERROR TABLE 


3731 022162 


020027 

VC WC 9 


003330 

vv^^^v 






CMP 


RO.fERTABE 




3732 022166 

J« ^C VCC 1 WV 


103774 

1 V^« • ~ 








BLO 

DkV 


30ft 

^V* 




3733 022170 

W VCC 1 • V 


000404 








BR 


4S 




3734 022172 

^* VCC 1 * c 


005037 


002152 

WC i ^c 




31S: 


CLR 


QVP 




373S 022176 

^* VCC 1 * V 


000137 

WW I ^» 


022246 

VCCC~1P 






JMP 


PASRPT 


'.^ REPORT THE STATUS 


3736 
















3737 022202 

^* vcccvc 








41: 








3738 022202 


012737 


177777 


002150 


NEyPAS: 


NOV 


f-1 <UNITN 


:INIT UNIT NUMBER... 


3739 022210 


005037 

www ■ 


002166 






CLR 


DEVCNT 


.'CLEAR COUNT OF DEVICES RUNNING 


3740 022214 








NXTU: 


BREAK 




022214 


104422 








TRAP 


CftBRK 




3741 022216 


005237 


002150 






INC 


UNITN 


:...AND SET NEXT UNIT NUMBER. 


3742 022222 


023737 


002150 


002012 




CNP 


UNlTN.LtUNIT 




3743 022230 


103423 








BLO 


SETU 




3744 022232 


012737 


177777 


003060 




NOV 


#*1 .0UFL6 




3745 022240 


000401 








BR 


lift 




3746 022242 










DOCLN 




.'ABORT. NO MORE UNITS. 


022242 


104444 








TRAP 


CftDCLN 




3747 022244 


000240 






11$: 


HOP 






3748 022246 








PASRPT : 








3749 022246 


023727 


002012 


000001 




CNP 


LftUNIT.f1 


:HOU NANY UNITS SELECTED? 


3750 022254 


101752 








BLOS 


NEUPAS 


:BR IF ONLY 1 


3751 022256 


005737 


002166 






TST 


DEVCNT 


:ARE ANY STILL RUNNING? 


3752 022262 


001747 








BEO 


NEUPAS 


;BR IF NO 


3753 022264 










RFLA6S 


RO 




022264 


104421 








TRAP 


CftRFLA 




3754 022266 


032700 


000100 






BIT 


fISR.RO 


; SHOULD UE PRINT STATISTICS 


3755 022272 


001343 








BNE 


NEUPAS 


:BR IF NO 


3756 
















3757 022274 










DORPT 






022274 


104424 








TRAP 


CftDRPT 




3758 022276 


000741 








BR 


NEUPAS 




3759 022300 








108: 








3760 

3761 022300 








SETU: 


6PHARD 


UNITN.RO 


:GET UNIT N P-TABLE POINTER. 


022300 

vcc^w 


013700 

V 1 w 


002150 

WC 1 'V 






ilOV 


UNITN.RO 




022304 


104442 








TRAP 


CftGPHRO 


:BR IF UNIT NOT AVAILABLE. 


3762 022306 










BNCONPLETE NXTU 


022306 


103342 








BCC 


NXTU 


: CLEAR "DROPPED" FLAG. 


3763 022310 


005037 


003060 






CLR 


DUFLG 


3764 022314 


005237 


'H)2166 






INC 


DEVCNT 


:6ET 1ST REGISTER ADDRESS. 


3765 022S20 


012001 






NOV 


(R0)«.R1 


3766 022322 


010137 


002154 






NOV 


R1 .CSRADOR 


iADDRESS OF REGISTERS OF UNIT UNDER 


5767 















TEST 



K 8 
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3768 


022326 


012001 






NOV 


(R0)«,R1 


:GET VECTOR ADDRESS. 


3769 


022330 


011002 






PtOV 


<R0).R2 


;GET INTERRUPT PRIORITY 


3770 


022332 


010237 


002160 




NOV 


R2,IPRI 


:SET INTERRUPT PRIORITY. 


3771 


022336 


A« 9^ 

0101 37 


0021 56 




NOV 


R^ .IVEC 


;SET INTERRUPT VECTOR POINTER... 


3772 


022342 


012721 


017056 




NOV 


M>&*. ^ #lkB^ • 

f lNtit.(R1)« 


VECTOR... 


3773 


022346 


010221 






NOV 


R2.(R1)* 


;...AND PRIORITY. 


3774 
















3775 


022350 








It: 






3776 










; TST 


QVP 


*1ST PASS 


3777 










BEQ 


5S 


:N0. SKIP THE PASS 1 STUFF. 


3778 
















3779 
















3780 










:1ST PASS. CHECK THAT DEVICE ADDRESSES ARE VALID. AND 


3781 










:THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 


3782 
















3783 


022350 


A4 V9A4 

01 3701 


AA14 C A 

0021 50 




MAU 

NOV 


UNITN.R1 




3784 


022354 


AM^ VA4 

006301 






ASL 


R1 




378S 


022356 


052761 


4 A AAA A 

100000 


AAV4 VA 

003130 


Dl9 


ffBlT15.ERTABL(R1) :SAY DEVICE RUNNING 


WAX 

3786 


022364 


AAC AW 

005037 


AAC IV'^ 

005232 




vLn 


BVTl 


.^LCWI CrIKUn CKICIfStUIV rLMO. 


3787 


A'%'% WA 

022370 


A'% 

023727 


AAtA4 t 

002012 


A AAA A 4 

000001 


f MA 

tw 


L$UNlT.f1 


;ARE UE TESTING NULTIPLE UNITS? 


3788 


Al*) WX 

022376 


4 A4 J 4 A 

101416 






Bi nc 


10$ 


*8R IF NO. 


3789 


022400 










RO 


IyES — GET OPERATOR FLAGS. 




Af%4 AA 

022400 


4 A/ / 1 4 

104421 






TBAD 


C$RFLA 




3790 


A't^ J A'k 

022402 


AV^VAA 

032700 


AA4 AAA 

001000 




BIT 


fPNT.RO 


.•SHOULD UE PRINT UNIT f? 


3791 


Al'%^ AA 

022406 


AA4 / 4 

001412 






BEQ 


10$ 


;BR IF NOT. 


3792 


Af%^ 4 A 

022410 








PRINTF 


ffPUNIT.UNITN 


:PRINT THE UNIT f 




022410 


A4 a 

01 3/46 


AA^I CA 

002150 




NOV 


UNITN.-(SP) 






022414 


01 2746 


022502 




NOV 


#PUNIT.-(SP) 






A'%'%^ 'tA 

022420 


A4 X 

012746 


AAAAA't 

000002 




NOV 


f2,-(SP) 






022424 


A 4 AX A A 

010600 






NOV 


SP.RO 






A<%U IX 

022426 


4 A/ J 4 9 

104417 






TRAP 


C$PNTF 






A'%*k4 VA 

022430 


062706 


AAAAAX. 

000006 




ADD 


ff6.SP 




3793 


022434 








10$: 






3794 


022434 


AAC AW 

005037 


AA VAA ^ 

003062 




CLR 


NODEV 




3795 


022440 


A4 WA4 

01 3701 


AA14 C J 

002154 




NOV 


CSRADDR.R1 


: ADDRESS OF FIRST REGISTER 


3796 


022444 


A4 

010102 






NOV 


R1.R2 


: START OF REGISTERS 


3797 


022446 


AX *tVAt 

062702 


A/kAAAA 

000000 




ADD 


fTSSR.R2 


: ADDRESS OF TSSR REGISTER 


WAA 

3798 


022452 


AA/ 9W 

004737 


A4 VIX/ 

017264 




JSR 


PC.XNXN 


;rEST BOTH CONTROLLER REGISTERS 


3799 


A<%<44 0^ 

022456 


« AVAA V 

103005 






BCC 


2$ 


;...AND BR IF ALL OK. 


3800 


Aft J X A 

022460 


A4 A4 W 

01 01 57 


AAV AX t 

00306Z 




NOV 


R1 .NOOEV 


:FLA6 DEVICE AS NON-EXISTENT 


3801 


Aft/ X J 

022464 


A4 *t9W 

012737 




AAV AX A 

003060 


NOV 


f-1 .DUFLG 


.•DROP THIS UNIT. 


3802 


022472 








2t: 






3803 










• 
• 






3804 










.•FINALLY. SET CPU PRIORITY AND WE'RE DONE. 


3805 










• 






3806 


022472 








\%i SETPRl 


ffPRlOO 


; ENABLE INTERRUPTS. 


Aft/ Vt 

022472 


A4 t^AA 

012700 


AAAAAf% 

000000 




NOV 


ffPRI0O,R0 














TRAP 


C$SPRl 




3807 


022500 








ENDINIT 








022500 








L10030: 








022500 


104411 






TRAP 


C$INIT 




3808 
3<09 


022S02 


045 


116 


045 


PUNIT: .ASCIZ 


/XNXNXA****« 




3810 










.EVEN 







L 8 



CZTUZAO TuaO FRONT END PRT D 
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3812 
3813 
38U 
3815 
3816 
3817 
3818 

3819 022SS0 
022SS0 

3820 022550 

3821 022552 

3822 022554 

3823 022562 

3824 022570 
022570 
022572 
022576 
022602 
022604 
022606 

3825 022612 
022612 
022614 

3826 022616 
3827 

3828 

3829 022644 
022644 
022644 
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SCO io; 



3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 

3841 022646 
022646 

3842 022646 

3843 022654 

3844 022656 

3845 022660 

3846 022666 

3847 022674 
022674 
022676 
022702 
022706 
022710 
022712 

3848 022716 
022716 
022720 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000026 
045 



104452 



012737 
010001 
006301 
052761 
000240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 



.SBTTL ADD AND DROP UNITS SECTIONS 



100000 
040000 



022616 
000002 



000006 



116 



003130 
003130 



177777 003060 



140000 
000240 



022722 
000002 



000006 



003130 
000240 



THE ADD-UNIT SEHION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) ADDED TU THE TEST LIST FOR THE FIRST TINE, 
OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



LSAU:: 



045 IS: 



LI 0031: 



B6NAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

NOV 

NOV 

nov 

NOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENDAU 

TRAP 



R0.R1 ; GET UNIT TO BE ADDED (RO) 

R1 ; MAKE IT A WORD INDEX 

flOOOOO.ERTABL(RI) ; SET THE "ACTIVE" BIT 

f 40000, ERTABLCRD : CLEAR THE 'IDROPPED" BIT 

fIS.RO 

RO,-(SP) 

f1$.-<SP) 

f2,-(SP) 

SP.RO 

CSPNTF 

f6,SP 

AU 

JSJNP 

Li 0031 -2-. 

/SNSA UNIT SDXA ADDED/ 



UNUSED. 



CIAU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REflOVEO FRON THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE NAN. 
'IDROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND. OTHERWISE REMAIN INACTIVE. THE 'DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS. AND TNE P-TABLF« OF THOSE 
WHICH ARE STILL ACTIVE. 

UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



LtDU:: 



BGNDU 

MOV f-1 DUFLG 

MOV R0.R1 

ASL R1 

BIS fU0000,ERTABL(R1) 

240.240.240 

PRINTF fU.RO 

MOV RO.-(SP) 

MOV #li.-(SP) 

NOV f2.-<SP) 

MOV SP.RO 

TRAP CSPNTF 

ADD «6.SP 

EXIT OU 

.WORD JtJHP 

.WORD L10032-2-. 



: SAY DROPPED 



CZTUZAO TU80 FRONT END PRT D 
ADD AND DROP UNITS SECTIONS 



n 8 

NACRO *I1200 29-MAR-83 13:43 PAGE 73-1 



SCO 103 I 



3849 022722 
3850 

3851 022752 
022752 
0227S2 

3852 
3853 
3854 

3855 022754 
0227S4 

3856 022754 

3857 022760 

3858 022764 

3859 022766 
022766 
022772 
022774 
023000 
023002 
023006 
023010 
023014 

3860 023016 

3861 023020 

3862 023022 

3863 023026 

3864 023026 
023026 
023026 



045 



104453 



012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



116 



000550 
017110 



000372 
002116 
177772 
177756 

020142 



045 1$: 



LI 0032: 



.ASCIZ 

.EVEN 

ENDDU 

TRAP 



/XNXA UNIT XDXA DROPPED/ 



CSDU 



; AUTO-DROP CODE SECTION. 
B6NAUT0 



LUUTO:: 
10$: 



20$: 
L10033: 



NOV 
JSR 
BCS 
DELAY 

mv 

.WORD 
NOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
DEC 
BNE 
JSR 

ENDAUTO 

TRAP 



f360..R3 
PCUAITF 
20$ 
250. 

f2S0.,(PC)« 

0 

L$DLV.(PC)« 
0 

-6(PC> 
.-4 

-22(PC) 
.-20 
R3 
10$ 

PC.CKDROP 



C$AUTO 



.ENOUGH TINE FOR 2400' REEL TO REWIND 
:UAIT FOR SSR TO SET 
.'LEAVE WHEN SSR IS SET 
:UAIT FOR .25 SECONDS 



;BUnP COUNTER DOWN 

;KEEP GOING 

:TRY AND DROP UNIT 

; UNUSED. 



N 8 



CZTUZAO TU80 FRONT END PRT D MACRO HIZOO 
CLEAN-UP AND REPORT COOING SECTIONS 

3866 
3867 
3868 
3869 
3870 
3871 
3872 

3873 023030 
023030 

387A 023030 005737 003060 
023034 100405 
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.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



THE CLEANUP COU!NG SECTION CONTAINS THE CODING THAT IS 
EXECUTED AT THE ENi> OF EACH PASS (OR SUB-PASS). 
USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 



SEa 104 



3875 
3876 
3877 

3878 023036 

3879 023044 

3880 023050 

3881 023050 
023050 
023050 

3882 
3883 
3884 
3885 

3886 023052 
023052 

3887 023052 
023052 
023056 
023062 
023064 
023066 

3888 023072 

3889 023074 

3890 023076 

3891 023100 

3892 023104 

3893 023106 

3894 023110 

3895 023112 

3896 023114 

3897 023120 

3898 023122 

3899 023126 
023126 
023130 
023132 
023136 
023142 
023144 
023146 

3900 023152 

3901 0231 S4 

3902 023160 

3903 023162 
023162 
023164 
023170 



B6NCLN 
LSCLEAN:: 

TST 
BNI 



012765 
004737 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
012746 



000000 
017110 



000000 



023314 
000001 



000004 
003130 

040000 
170000 



023351 
000003 



000010 
160000 



023421 
000002 



IS: 
2$: 

L10034: 

1** 



NOV 

JSR 

ENOCLN 



DUFLG 
IS 



«0,TSSR(RS> 
PC.UAITF 



.•"DROPPED" FLAG IS SET ON... 
;...AND GROSS CONTROLLER FAULT... 
DON'T TRY TO XCT CLEANUP CODE. 

;rs SOFT INIT 



TRAP CSCLEAN 



THE REPORT COOING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



LSRPT:: 



B6NRPT 



IS: 



2S: 



PRINTS 


fOEVSUN 


NOV 


fDEVSUN.-(SP) 


NOV 


fl.-(SP) 


NOV 


SP.RO 


TRAP 


CSPNTS 


ADD 


«4.SP 


NOV 


R2,-(SP) 


NOV 


R3.-(SP) 


NOV 


R4,-(SP) 


NOV 


«ERTABl,R4 


CLR 


R3 


NOV 


(R4).R2 


BEfi 


4S 


BPL 


4$ 


BIT 


fBIT14,R2 


BNE 


2S 


BIC 


fC7777.R2 


PRINTS 


fDEVONL,R3.R2 


NOV 


R2.-(SP) 


NOV 


R3.-(SP) 


NOV 


fDEVONL«-(SP) 


NOV 


f3.-(SP) 


NOV 


SP,RO 


TRAP 


CSPNTS 


ADD 


flO.SP 


BR 


4S 


CNP 


R2.f 160000 


BNE 


ss 


PRINTS 


fOEVNXR.RS 


NOV 


R3,-(SP) 


NOV 


#DEVNXR.-(SP) 


NOV 


#2--(SP) 



GET START OF ERROR TABLE. 
CLEAR UNIT NUNBER 
1<ET ERROR TABLE ENTRY 8 TEST 
2ERt IF UNIT NOT RUN 

UAS UNIT DROPPED? 
BR IF YES 

GET ERROR COUNT FIELD 
PRINT 



IT. 



: UAS UNIT NON-EXISTENT? 
; BR IF NO 
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023174 


010600 








MOV 


023176 


104416 








TRAP 


023200 


062706 


000006 






ADD 


390A 023204 


000431 








BR 


3905 023206 


020227 


160001 




3S: 


CMP 


3906 023212 


001012 








BNE 


3907 023214 










PRINTS 


023214 


010346 








MOV 


023216 


012746 


023503 






MOV 


023222 


012746 


000002 






MOV 


023226 


010600 








MOV 


023230 


104416 








TRAP 


023232 


062706 


000006 






ADD 


3908 023236 


000414 








BR 


3909 023240 


042702 


170000 




30i; 


BIC 


3910 023244 










PRINTS 


023244 


010246 








MOV 


023246 


010346 








MOV 


023250 


012746 


023564 






MOV 


023254 


C 12746 


000003 






MOV 


023260 


010600 








MOV 


023262 


104416 








TRAP 


02326H 


062706 


000010 






ADD 


3911 023270 


062704 


000002 




4$: 


ADD 


3912 023274 


005203 








INC 


3913 023276 


020427 


003330 






CMP 


3914 023302 


103701 








BLO 


3915 023304 


012604 








MOV 


3916 023306 


012603 








MOV 


3917 023310 


012602 








MOV 


3918 023312 










ENDRPT 


023312 








LI 0035: 




023312 


104425 








TRAP 


3919 023314 


045 


116 


045 


DEVSUH: 


.ASCIZ 


3920 023351 


045 


101 


040 


DEVONL: 


.ASCIZ 


3921 023421 


045 


101 


040 


DEVNXR; 


.ASCIZ 


3922 023503 


045 


101 


040 


DEVNRD: 


.ASCIZ 


3923 023564 


045 


101 


040 


DEVDRO: 


.ASCIZ 


3924 










.EVEN 
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SP.RO 
CiPNTS 
ff6,SP 
4< 

R2, #160001 
30S 

f DEVNRD. R3 

R3,-(SP) 

fDEVNRD.-(SP) 

#2.-{SP) 

SP.RO 

CSPNTS 

#6,SP 

4$ 

#*C7777.R2 

ffDEVDRO.R3,R2 

R2,-(SP) 

R3,-(SP) 

ffDEVDRO,-(SP) 

#3.-(SP) 

SP.RO 

CSPNTS 

flO.SP 

f2.R4 

R3 

R4,«ERTABE 
U 

(SP)*.R4 
<SP)*,R3 
(SP)*.R2 



WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 



: UNUSED. 



CIRPT 

/iNtADEVICE STATUS SUMMARY :SN/ 

/U UNIT ID3XA ONLINE. ERRORS - XDSN/ 

/XA UNIT ID3U DROPPED, NON-EXISTENT REGISTERZN/ 

/XA UNIT XD3XA DROPPED. NOT READY AT 3TARTUPZN/ 

/lA UNIT XD3IA DROPPED, ERRORS - XDSN/ 
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CZTUZAO TU80 FRONT END PRT D 
TEST 1: WRITE TAPE HARK RETRY 

3946 
3947 
3948 
3949 
3950 
39S1 
3952 
3953 
3954 
3955 
3956 
3957 

3958 023634 
023634 

3959 023634 005037 002170 
396C 023640 0OS037 003100 
3961 023644 012737 005672 

3966 023652 012700 032101 

3967 023656 004737 017376 

3968 023662 012737 000002 

3969 023670 005037 026534 
5970 023674 
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.^TTL TEST 1: URITE TAPE NARK RETRY 

THIS TEST VERIFIfS PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSfc. ER^SE. WRiTE TAPE HARK>. Sl^STESTs ARE AS FOLLOWS: 

THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 



S^Q 106 



002146 



002164 



T29L00P: 



B6NTST 

CLR 
CLR 
MOV 
NOV 
JSR 
NOV 
CLR 



FATFL6 
KTFL6 

lEPRTI.EPRTSW 

fTSr29ID.R0 

PC.TSTSETUP 

f2,L00PCNT 

T29CNT 



T1 : : 

.CLEAR FATAL ERROR FLAG 
.•HOLD OFF KT11 

;PRINARY ERROR "XaSAGE 

.•ASCII HC.SSA6E TO IDENTIFY TEST 

;D0 INITIAL TEST SETUP 

: PERFORM 2 ITERATIONS 

.•CLEAR TAPE RECORD COUNTER 
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CZTU2A0 TU80 FRONT END PRT D 
TEST 1: yRlTE TAfE NARK RETRY 



3«72 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3960 
3981 
3982 

3983 0^3674 
023674 
023674 

3984 023676 

3985 023702 

3986 023706 

3987 023712 

3988 023720 

3989 023724 

3990 023726 
023726 
023732 
023734 
023740 
023742 
023746 
023750 
023754 
023756 

3992 023762 

3993 023764 

3997 023770 

3998 023772 
023772 
023774 
023776 
024000 

3999 024002 
4000 

4001 024002 

4002 024006 

4003 024012 

4004 024014 

4008 024020 

4009 024022 
024022 
024024 
024026 
024030 

4010 024032 
024032 
024034 

4012 024040 

4013 024042 

4014 024046 

4015 024050 
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TEST 1, SUBTEST 1 



SEO 107 



VERIFIES THAT A WRlTE TAPE HARK RETRY COfVfAND ISSUED WHILE THE 

TAPE IS POSITIONED H BOT CAUSES FUNCTION REJECT TERNINATION, VITH THE 

NON-EXECt'TABLE FUNCTION (NEF) ERROR BIT SET. 



3991 



4011 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000145 
003550 
011656 



012704 
004737 
103407 
004737 
010001 

104456 
000146 
004754 
011656 

104406 
016501 
010102 
042702 
020102 
001406 



032130 
032222 
032264 
023420 
016634 



000250 
002116 
177772 
177756 
026540 
020070 



02635G 
010322 

020070 



000000 
000100 



026S40 



10S: 



20S: 



2SS: 



BGNSUB 



JSR 
JSR 
JSR 
NOV 
JSR 
BCS 
DELAY 



DEC 
BNE 
JSR 
NOV 
ERROF 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRO 



CKLOOP 

NOV 
NOV 
BIC 
CNP 
BEO 



PC.T29REST 

PC,T29RT2 

PC.T29R13 

f10000..T29DLY 

PC.SOFINIT 

20S 

250 



T290LV 
10$ 

PC.FATCHK 
R0.R1 

ERRNO.SFIERR^SFINSG 



«T29PACKET,R4 

PC.URTCHR 

25« 

PC.FATCHr 
RO.RI 

ERRNO.URTNSCSFINSG 



TSSR(R5).R1 
R1.R2 
fOFL.R2 
R1.R2 

26i 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.1: 

TRAP CSBSUB 

;SET CONHAND PACKET 

iSET UP OTHER CONNAND PACKET 

;SET UP OTHER CONNAND PACKET 

:SET UP DELAY ROUTINE 

:D0 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

.DELAY ABOUT .25 SECONDS 

NOV #250. (PC)* 
.WORD 0 

NOV LSDLY.{PC)* 
.WORD 0 
DEC -6<PC> 
BNE .-4 
D?C •22(PC> 
BNE .-20 

;BUNP DELAY ROUTINE DOWN 

:BR. IF NORE DEUY TINE LEFT 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

; CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 101 
.WORD SFIERR 
.WORD SFinSG 



rSUBROUTINE NEEDS PACKET ADDRESS 
; ISSUE WRITE CHARACTERISTICS 
;BR. IF CONNAND ISSUED OK 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SAVE CONTENTS OF TSSR 
;WRITE CHARACTERISTISC FAILED 

TRAP 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



CSERHPD 
102 

WRTNSG 
SFINSG 



;6ET THE TSSR 
?r,ET UP EXPECTED 
;OFF LINE SHOULD NOT BE SET 
;THEY SHOULD BE EQUAL 
;BH. If OfL is NQI SI 



TRAP CSCLP1 
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TEST 1: WRITE TAPE HARK RETRY 

ERROF ERRN0.T290FL,EXPREC 



PCCKDROP 

PC. REWIND 

TSSR(RS),R1 

fSSR,R2 

30S 

RO.RA 

PC.FATCHK 

ERRN0.T29RUN.PKTSSR 



4019 024052 










ERRDF 


024052 


10445S 










024054 


000147 










024056 


026542 










024060 


016334 










4020 024062 


004737 


020142 






JSR 


4021 024066 


004737 


010424 




26S: 


JSR 


4022 024072 


016S01 


000000 






NOV 


4023 024076 


012702 


000200 






nov 


4024 024102 


103407 








BCS 


4025 024104 


010004 








HOV 


4026 024106 


004737 


020070 






JSR 


4030 024112 










ERRHRD 


024112 


104456 










024114 


000150 










024116 


030260 










024120 


011670 










4031 024122 








30$: 


CKLOOP 


024122 


104406 










4032 024124 


013701 


026376 






NOV 


4033 024130 


010102 








HOV 


4034 024132 


052702 


000002 






BIS 


4035 024136 


020102 








CHP 


4036 024140 


001406 








BEQ 


4037 024142 


004737 


020070 






JSR 


4041 024146 










ERRHRD 


024146 


104456 










024150 


000151 










024152 


0277S1 










024154 


016334 










4042 024156 








40$: 


CKIOOP 


024156 


104406 










4043 024160 


013737 


003072 


026502 




HOV 


4044 024166 


012737 


141011 


026500 




HOV 


4045 024174 


012704 


026500 






NOV 


4046 024200 


010465 


177776 






HOV 


4047 024204 


004737 


017110 






JSR 


4048 024210 


016501 


000000 






HOV 


4049 024214 


012702 


100206 






HOV 


4050 024220 


020102 








CHP 


4051 024222 


001406 








BEQ 


4052 024224 


004737 


020070 






JSR 


4056 024230 










ERRHRO 


024230 


104456 










024232 


000152 










024234 


027622 










024236 


011670 










4057 024240 








75$: 


CKLOOP 


024240 


104406 










4058 024242 


013701 


026376 






HOV 


4059 024246 


010102 








HOV 


4060 024250 


052702 


002000 






BIS 


4061 024254 


020102 








CHP 


4062 024256 


0OU06 








BEQ 


4063 024260 


004737 


020070 






JSR 


4067 024264 










ERRHRD 


024264 


104456 











r29BFR«6.R1 

R1.R2 

«8IT1,R2 

R1,R2 

40$ 

PCFATCHK 

ERRNO.T29B0T,EXPREC 



FREE.T29RB 

ff141011.T29PK3 

iT29PK3.R4 

R4«TS0B(RS) 

PC.WAITF 

TSSR(RS).R1 

fSSR!SC!BIT1!Bn2.R2 

R1,R2 

75i 

PCFATCHK 

ERRIi0.T29U0E,PKTSSR 



T29BFR«6,R1 

R1.R2 

fBniO,R2 

R1.R2 

176$ 

PCFATCHK 

ERRN0,I29NEF,E)IPREC 



SEO 108 



.•DRIVE IS OFF LINE 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
103 
T290FL 
EXPREC 



;TRY AMD DROP DRIVE 
;CALL TAPE REWIND COHHAND 
;GET TSSR 

;SET UP EXPECTED TSSR 
:BR. IF NO PR06LEH 
jPACKET ADDRESS SET UP 
;INC AND CHECK FOR HORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
104 

T29RWN 
PKTSSR 



TRAP C$CLP1 



;PICK UP XSTO 
:SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;0OES EXP « REC'D 
:BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 105 
.WORD T29B0T 
.WORD EXPREC 

.LOOP IF SELECTED 

TRAP C$CLP1 

.•ADDRESS OF READ BUFFER 

:WRITE TAPE NARK RETRY. CVC=1 .ACK COHHAND 

;SET UP R4 WITH PACKET ADDRESS 

: ISSUE COHHAND 

;WAn FOR SSR TO SET 

:6ET TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

*BR IF OK 

:INC AND CHECK FOR HORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP 



.•LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



C$ERHRD 
106 
T29WDE 
PKTSSR 



TRAP C$CLP1 



;6ET XSTO STATUS WORD 

;SET UP EXPECTED 

.SET THE NEF BIT 

;ARE THEY EQUAL 

:BR. IF EQUAL (GOOD) 

;INC AND CHECK FOR HORE THAN 25 ERRORS 

;N£F SHOULD BE SET 

IHAP CSERHRO 
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024266 000153 

024270 026670 

024272 016334 

4068 024274 170$: 

4069 024274 0OS103 COM R3 

4070 024276 001273 BNE 261 

4071 024300 ENOSUB 
024300 

024300 104403 



.WORD 107 
.WORD T29NEF 
.WORD EXPREC 

.•RESET THE SWITCH 

;BR, IF FIRST TIME THROUGH HERE 

Li 0037: 

TRAP CtESUB 



6 9 



CZTUZAO TUSO FROMT END PRT D MACRO N1200 
TEST 1: WRITE TAPE NARK RETRY 



29-MAR-83 15:43 PAGE 78 



SEO 110 



407J 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 

4085 024302 
024302 
024302 

4086 024304 

4087 024310 

4088 024314 

4089 024320 

4090 024324 

4091 024326 

4095 024352 

4096 024354 
024334 
024356 
024540 
024542 

4097 024544 
4098 

4099 024544 

4100 0245S0 

4101 024554 

4102 0245S6 

4106 024562 

4107 024564 
024564 
024566 
024570 
024572 

4108 024574 
024574 

4109 024576 

4110 024402 

4111 024406 

4112 024412 
4115 024414 
4114 024416 

4118 024422 
024422 
024424 
024426 
024450 

4119 024452 
024452 

4120 024454 

4121 024440 

4122 024442 



104402 



104455 
000154 
005550 
011656 



012704 
004757 
105407 
004757 
010001 

104456 
000155 
004754 
011656 

104406 
004757 
016501 
012702 
105407 
010004 
004757 

104456 
000156 
050260 
011670 

104406 
015701 
010102 
052702 



026550 
010522 

020070 



010424 
000200 

020070 



026576 
000002 



TEST 1, SUBTEST 2 

VERIFIES THAT A URlTE TAPE HARK RETRY COMMAND ISSUED WHILE THE TAPE 

IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT B0T> RESULTS IN 

TAPE STATUS ALERT TERMINATION, UITH THE REVERSE INTO BOT (RIB) STATUS BIT 

SET. 



BGNSUB 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.2: 

TRAP CtSSUB 



004757 


032150 


JSR 


PC.T29REST 


;SET COMMAND PACKET 


004757 


052222 


JSR 


PC,T29RT2 


:SET UP OTHER COMMAND PACKET 


004757 


052264 


JSR 


PC.T29RT5 


;SET UP OTHER COMMAND PACKET 


004757 


016654 


JSR 


PCSOFINIT 


:D0 INITIALIZE ON CONTROLLER 


105407 




BCS 


20$ 


;BR IF INIT UAS OK 


004737 


020070 


JSR 


PCFATCHK 


;TNC AND CHECK FOR MORE THAN 25 ERRORS 
.•CONTENTS OF TSSR REGISTER 


010001 




MOV 


R0.R1 






ERRDF 


ERRNO.SFIERR.SFINSG 


.•FATAL ERROR TSSM UAS NOT OK 



20$: 



TRAP 
.UORD 
.WORD 
.WORD 



C$ERDF 
108 

SFIERR 
SF1MS6 



25$: 
26$: 



50$: 



MOV 
JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 

JSR 
MOV 
NOV 
BCS 
MOV 
JSR 

ERRHRD 



CKLOOP 

MOV 
MOV 

Ml 



fT29PACKET.R4 

PC.WRTCHR 

25$ 

PC.FATCHK 
RO.RI 

ERRNO.VRTMSG.SFIMSG 



PC .REWIND 

TSSR(R5>.R1 

fSSR.R2 

50$ 

R0.R4 

PC.FATCHK 

ERRin,T29RUN,PKTSSR 



.•SUBROUTINE NEEDS PACKET ADDRESS 

.•ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;JNC AND CHECK FOR MORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

:URITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 109 
.WORD WRTMSG 
.WORD SFIMSG 

;LOOP IF SELECTED 

TRAP C$CLP1 
;CALL TAPE REWIND COMMAND 

.-GET TSSR 

.SET UP EXPECTED TSSR 
.BR. IF NO PROBLEM 
.PACKET ADDRESS SET UP 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
110 

T29RWN 
PKTSSR 



T29BFR«6,R1 
R1.R2 



TRAP CSCLPl 



:PiCK UP XSTO 

.•SET UP EXPECTED 

.»SFT BOT BIT IH EIPECTED 
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4123 024446 

4124 0244S0 

4125 024452 
4129 024456 

024456 
024460 
024462 
024464 

4150 024466 

4151 024474 

4152 024502 
4155 024510 

4154 0245*4 

4155 024520 

4156 024524 

4157 024550 

4158 024554 

4159 024556 
4140 024540 
4144 

4145 
4146 

4147 024544 
024544 
024546 
024550 
024552 

4148 024554 
024554 

4149 024556 

4150 024564 

4151 024572 

4152 024576 
4155 024602 

4154 024606 

4155 024612 

4156 024616 

4157 024620 

4158 024622 
4162 024626 

024626 
024650 
024652 
024654 
4165 024656 
024656 

4164 024640 

4165 024646 

4166 024654 

4167 024660 

4168 024664 

4169 024670 

4170 024674 

4171 024700 

4172 024702 
4175 024704 
4177 024710 



020102 
001406 

004757 020070 



104456 
000157 
027751 
016554 

012757 000001 026502 408: 

012757 000400 026506 

012757 140005 026500 

012704 026500 

010465 177776 

004757 017110 

016501 000000 

012702 000200 

020102 

001406 

004757 020070 



104457 
000160 
027704 
011670 

104406 

012757 000001 02650: 

012757 140410 026500 

012704 026500 

010465 177776 

004757 017110 

016501 000000 

012702 000200 
020102 
001406 

004757 020070 
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CMP R1,R2 

BEQ 401 

JSR PCFATCHK 

ERRHRO E*RNO,T29BOT,EXPREC 



NOV f1,T29RB 

NOV ff256..T29SZ 

NOV «140005J29PK5 

NOV fT29PK5,R4 

NOV R4«TSDB(RS) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV fSSR.R2 

CNP R1 ,R2 

BEQ 75S 

JSR PCFATCHK 



ERRSOFT ERRNO.T29yRT,PKTSSR 



104456 
000161 
027622 
011670 

104406 

015757 005072 026502 

012757 141011 026500 

012704 026500 

010465 177776 

004757 017110 

016501 000000 

012702 100204 
020102 
001406 

004757 020070 



758: CKLOOP 

NOV 
NOV 
NOV 
NOV 
JSR 
MOV 
NOV 
CNP 
BEQ 
JSR 

EfmHRD 



175$: CKLOOP 

NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CUP 
BEQ 
JSR 

ERRHRO 



f1.T29R8 

f140410.T29PK5 

fT29PK5.R4 

R4.TS0B(RS) 

PC.UAITF 

TSSR(RS).R1 

fSSR.RZ 

R1.R2 

17$S 

PC.FATCMC 

ERRN0.T29WDE.PKTSSR 



FREE.T29M 

#141011 J29PK5 

fT29PK5.R4 

R4.TS0B(RS) 

PC.UAITF 

TSSR(R5).R1 

fSSR!SC!BIT2.R2 

R1.R2 

180$ 

PCJATCKK 

ERRIiO.T29W0E.PKTSSR 



SEQ 111 



.-DOES EXP s REC'O 
;BR« IF EQUAL <0K) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRO 

.WORD 111 

.WORD T29B0T 

.WORD EXPREC 
;NUHBER OF RECORDS TO SPACE OVER 
.SET UP RECORD SIZE 
;UR1TE FORWARD. CVC*1.ACK CONNANO 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE COfWAND 
;WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
:SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;SOFT ERROR. D0N*1 CARE ABOUT WRITE 
:C0NNAND*S RESULTS - CHECKING WRITE 
.•TAPE NARK CONNAND 
;TSSR INCORRECT AFTER WRME DATA 

TRAP C$ERSOFT 

.WORD 112 

.WORD T29WRT 

.WORD PKTSSR 

;LOOP IF SELECTED 

TRAP CSCLPI 
;NUNBER OF RECORDS TO SPACE OVER 

:SET UP CONNAND IN ATCKET :SCT 

;SET UP R4 WITH PACKET ADDRESS 

: ISSUE CONNAND 

.•WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

:BR. IF OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 

.WORD 115 

.WORD T29WDE 

.WORD PKTSSR 

.LOOP IF SELECTED 

TRAP C$CLP1 

.•ADDRESS OF BUFFER 

.•WRITE TAPE NARK RETRY.ACK.CVC-1 COND. 
.•SET UP R4 WITH PACKET ADDRESS 
.ISSUE CONNAND 
.•WAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
.SET UP EXPECTED 
;ARE THEY EQUAL 
'BR IF OK 

•!NC AND CHECK FOR NORE THAN 25 ERRORS 
•TSSR INCORRECT AFTER READ DATA 
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024710 
024712 
024714 
024716 

4178 024720 
024720 

4179 024722 

4180 024726 

4181 024730 

4182 024734 

4183 024736 

4184 024740 

4188 024744 
024744 
024746 
024750 
024752 

4189 024754 

4190 024754 
024754 
024754 



104456 
000162 
027622 
011670 

104406 

013701 026404 
010102 

052702 000001 

020102 

001406 

004737 020070 

104456 
000163 
031706 
016334 



104403 



180$: 



CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



T29BFR«14.R1 

R1.R2 

#BIT0,R2 

R1.R2 

190$ 

PC.FATCHK 

ERRN0.T29RIB.EXPREC 



190$: 



ENDSU6 



.LOOP IF SELECTED 



GET XST3 STATUS WORD 

SET UP EXPECTED 

SET THE RIB BIT 

ARE THEV EQUAL 

BR. IF EQUAL (GOOD) 

INC AND CHECK FOR NORE 

Hlf SHOULD BE SET 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

114 

T29«0E 
PKTSSR 



TRAP C$CLP1 



THAN 25 ERRORS 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

115 

T29RIB 
EXPREC 



;»»»»»» END SUBTEST »»»»»» 
L 10040 : 

TRAP C$ESUB 



SeO 11? 



t 
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CZTU7A0 TU80 FRONT END PRT 0 
TEST 1: WRITE TAPE HARK RETRY 



4192 
4195 
4194 
4195 
41% 
4197 
4198 
4199 
4200 
4201 



0247S6 
024756 
024756 

4202 024760 

4203 024764 

4204 024770 

4205 024774 

4206 025002 

4207 025006 

4208 025010 
025010 
025014 
025016 
025022 
025024 
025030 
025032 
025036 

4209 025040 

4210 025044 

4211 025046 

4215 025052 

4216 025054 
025054 
025056 
025060 
025062 

4217 025064 

4218 025064 

4219 025070 

4220 025074 

4221 025076 

4225 025102 

4226 025104 
025104 
025106 
025110 
025112 

4227 025114 
025114 

4228 025116 

4229 025122 

4230 025124 

4231 025130 

4232 025132 
4236 025136 

025136 
025140 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000164 
003550 
011656 

012704 
004737 
103407 
004737 
010001 

104456 
000165 
004754 
011656 

104406 
004737 
103411 
016501 
010004 
004737 

104456 
000166 



032130 
032222 
032264 
023420 
016634 



000250 
002116 
177772 
177756 
026540 
020070 



026350 
010322 

020070 



010424 



020070 
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TEST 1. SUBTEST 3 



SEO 113 



VERIFIES THAT A URiTE TAPE HARK RETRY COMMAND TERMINATES 

PROPERLY AND WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE 

COMMAND AND CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK«1). 



026540 



10$: 



20S: 



23t: 



B6NSUB 



JSR 
JSR 
■JSR 
NOV 
JSR 
BCS 
DELAY 



DEC 



JSR 
NOV 
ERRDF 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRD 



PC.T20REST 

PC.T29RT2 

PC.T29RT3 

f 10000. J29DLY 

PC.SOFINIT 

20t 

250 



T290Lt 
108 

PC.FATCHK 
R0.R1 

ERRNO.SFIERR.SFINSG 



ffT29PACICET.R4 

PC.URTCHR 

238 

PCJATCHK 
RO.RI 

ERRN0,VRTMSG,SFIMS6 



PC, REWIND 
30t 

TS$R(R5).R1 

R0,R4 

PCFATCHK 

ERRN0.T29RWN,PKTSSR 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.3: 

TRAP CSBSUB 

:SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

.SET UP OTHER COMMAND PACKET 

:SET UP DELAY ROUTINE 

;D0 INITIALIZE ON CONTROLLER 

:BR IF INIT WAS OK 

; DELAY ABOUT .25 SECONDS 

MOV #250, (PC) « 
.WORD 0 

MOV LtDlV,(PC)« 
.WORD 0 
DEC -6<PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

:BUNP DELAY ROUTINE DOWN 

;Bfl, IF HOME DELAY TIME LEFT 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

: FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 116 
.WORD SFIERR 
.WORD SFINSG 

.SUBROUTINE NEEDS PACKET ADDRESS 

.•ISSUE WRITE CHARACTERISTICS 

.•BR. IF COMNAND ISSUED OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

;SAyE CONTENTS OF TSSR 

.URITI CHARACTERISTISC FAILED 

TRAP C8ERHRD 
.WORD 117 
.WORD WRTMSG 
WORD SF IMSG 

.•LOOP IF SELECTED 

RAP CtCLPl 

.CALL TAPE REWIND COMMAND 
;BR. IF NO PROBLEM 

.-GET TSSR 

;SAVE PACKET ADDRESS 
;1NC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



TRAP 



CIERHRD 

m 



CZTUZAO TU80 FRONT END PRT 0 
TEST 1: WRITE TAPE HARK RETRY 
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025142 


030260 












025144 


011670 










4257 


025146 








508: 


CKLOOP 




025146 


104406 










4238 


0251 SO 


013701 


026576 






MOV 


4239 


025154 


010102 








NOV 


4240 


025156 


052702 


000002 






BIS 


4241 


025162 


020102 








CNP 


4242 


025164 


001406 








BEQ 


4243 


025166 


004737 


020070 






JSR 


4247 


025172 










ERRHRD 




025172 


104456 












025174 


000167 












025176 


A'k WC 4 

027751 












025200 


A4 ^ W J 

016334 










4248 


025202 








J AA . 

408: 


CKLOOP 




025202 


4 A J J A^ 

104406 










4249 


025204 


A«l <ft9W 

012737 


4 B AA4 4 

140011 


A1A.C AA 

026500 




■•Aft J 

NOV 


42S0 


025212 


A4 'ftVA J 

012704 


A'ft^ f AA 

026500 






NOV 


4251 


A^Cft4 ^ 

025216 


A4 A^ M. 

010465 


1 77776 






NOV 


4252 


025222 


AA/ 

004737 


A4 94 4 A 

017110 






JSR 


4253 


025226 


A« ^ A4 

016501 


AAAAAA 

000000 






NOV 


4254 


025232 


A4 'IVAI 

012702 


AAA'ftAA 

000200 






NOV 


4255 


025236 


020102 








^MA 

CNP 


4250 




AA4 # AA 

001 %06 








AE A 

BEQ 


4257 


025242 


AAA 

004737 


A^AA9A 

020070 






JSR 


4261 


025246 










ERRHRD 




025246 


104456 












02?'50 


AAA4 9A 

000170 












02^ Ik. 2 


030577 












025254 


A4 4 A9A 

011670 










4262 


025256 








9A# . 

709: 


AAA 

CKLOOP 




025256 


4 A^ J^AX 

104406 










4263 


025260 


01 2703 


AAAAA4 

000001 




1 CAC • 
I5O9: 


MAU 

BOV 


4264 


025264 


A1 

012r3f 


4 A. 4 A4 \ 


A9ACAA 

026500 




nOV 


4265 


025272 


A4 <%9A# 

012704 


A^ACAA 

026500 






MAU 

PlOV 


4266 


A9C % 

0252/6 


A1 A4 

010465 


1 7 J Jib 




155»: 


NOV 


4267 


025302 


AA^ 

004737 


A4 94 4 A 

017110 






JSR 


4268 


A1C VAX 

025306 


A4 d. C A4 

016S01 


AAAAAA 

000000 






MAU 

NOV 


4269 


025312 


A4 'ftVAl 

012702 


AAA*1AA 

000200 






NOV 


4270 


A<ftC V4 A. 

025316 


A1A4 A^ 

020102 








CNP 


4271 


025320 


AA4 J A^ 

001406 








ACA 

BEQ 


4272 


A<%ff 9%*% 

025322 


AAA 

004737 


A'bAA9A 

020070 






1^ A 

JSR 


4276 


02S326 










ERhHRD 




025326 


4 AA A CA 

104456 












A*ftC WA 

02S3S0 


AAA4 94 

0001 71 












025332 


030577 












A<%f W J 

025334 


A4 4 A 9A 

011670 










4277 


02S336 








1658: 


AAA 

CKLOOP 




025336 


4 AA A AA 

104406 










4278 


025340 


012737 


140401 


026500 




NOV 


4279 


025346 


013737 


003072 


026502 




NOV 


4280 


025354 


012704 


026500 






NOV 


4281 


025360 


010465 


1/7776 






NOV 


4282 


025364 


004757 


017110 






JSR 


4283 


025370 


016501 


000000 






NOV 


4284 


025374 


012702 


100204 






NOV 



T29ttfRt6.R1 

R1.R2 

ffBIT1,R2 

R1,R2 

408 

PC.FATCHK 

ERRN0.T29B0T.EXPREC 



f140011,T29PK5 

fT29PK5,R4 

R4JSDB(R5) 

PC.WAITF 

TSSR(R5>,R1 

ffSSR,R2 

R1.R2 

708 

PC.FATCHK 

ERRN0.T29U0C.PKTSSR 



ff1.,R3 

«1410inT29PK5 

fT29PK5,R4 

R4,TS06(R5> 

PCUAITF 

TSSR(R5),R1 

ffSSR.R2 

R1.R2 

16S8 

PC.FATCHK 

ERRN0.T29W0C,PKTSSR 



f 140401 .T29PK5 

FREE,T29R8 

fT29PK5,R4 

R4.TSDB(RS) 

PCWAITF 

TSSR(R5),R1 

fSSR«SC!Bn2.R2 



.yORD T29RIM 
.yORD PKTSSR 

:LOOP IF SELECTED 

TRAP CfCLPI 

;PICK UP XSTO 

:SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP « REC'D 

:BR. TF EOUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.-TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WOnD 119 
.WORD r29BOT 
.WORD EXPREC 

:LOOP IF SELECTED 

TRAP C8CLP1 
;WRITE TAPE NARK.ACK,CVC*1 CQNNAND 
:SET UP R4 WITH PACKET ADDRESS 
.•ISSUE CONNAND 
;WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
'BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;Ti»SR INCORRECT AFTER WRITE TAPE HARK 

TRAP CSERHRD 
.WORD 120 
.WORD T29WDC 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP C8CLP1 
;NUNBER OF RECORDS TO WRITE TN 
:WRITE TAPE NARK RETRY,ACK,CVCs1 CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE CONNAND 
;UAIT FOR SSR TO SET 
; PICK UP TSSR 

.'SET UP EXPECTED (SSR ONLY) 

:WAS STATUS 6000 

:BR. IF TERNINATION WAS GOOD 

.•INC AND CHECK FOR NORE THAN 25 ERRORS 

;TSSR NOT CORRECT AFTER WRT TAPE N. 

TRAP CSERHRD 
.WORD 121 
.WORD r29WDC 
.WORD PKTSSR 

.LOOP IF SELECTED 

TRAP C8CLP1 
:READ REVERSE .ACK. CONNAND 
.•NUNBER OF RECORDS TO SPACE BACK 
:SET UP R4 WITH PACKET ADDRESS 
.ISSUE CONNAND 
:WAIT FOR SSR TO SET 
.•GET TSSR CONTENTS 

UP »PiCTE6 



CZTUZAO TU80 FRONT END PDT D 
TEST 1: WRITE TAPE NARK RETRY 
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4285 025400 

4286 02S402 

4287 02S404 

4291 025410 
025410 
025412 
025414 
025416 

4292 025420 
025420 

4295 025422 

4294 025426 

4295 025430 

4296 025434 

4297 025436 

4298 025440 

4302 025444 
02S444 
025446 
025450 
025452 

4303 025454 
025454 

4304 025456 
025456 
02S4S6 



C20102 
001406 

004737 020070 

104456 
000172 
031543 
011670 

104406 

013701 G26376 
010102 

052702 100000 

020102 

001406 

004737 020070 

104456 
000173 
032006 
016334 

104406 



104403 



226t: 



CHP 
BEQ 

JSR 



222S: CKLOOP 

MOV 
NOV 

eis 

CRP 
BEO 

JSR 

ERRHRD 



CKLOOP 
ENDSUB 



R1.R2 
PCFATCHK 



ERRHRO E»RNOJ29R0G.PKTSSR 



T29BFR«6,R1 

R1,R2 

»BIT15,R2 

RUR2 

226t 

PC.FATCNK 

ERRN0,T29RRN,EXPREC 



.-ARE THEY EQUAL 
* BR I F OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER SPACE CND. 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
122 

T29RDG 
PKTSSR 



TRAP C«CLP1 



;PICK UP XSTO 
;SET UP EXPECTED 
;TMK SHOULD BE SET 
;IS THK SET 

;BR. IF TWl WAS SET (GOOD) 
;1NC AND CHECK FOR HORE THAN 25 ERRORS 
:Jm NOT SET AFTER READ REV 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 

123 

129AM 
EXPREC 



TRAP CtCLPI 
;«««««< END SUBTEST »»»»»> 
L10041 : 

TRAP CftESUB 



N 9 



CZTUZAO TU80 FRONT END PRT D 
TEST 1: WRiTE TAPE HARK RETRV 



4306 
A307 
4308 
4309 
4310 
4311 
4312 
4313 
4314 
431 S 
4316 

4317 025460 
025460 

025460 104402 

4318 025462 004737 

4319 025466 004737 

4320 025472 004737 

4321 025476 012737 

4322 025504 004737 

4323 025510 103426 

4324 025512 
025512 012727 
025516 000000 
025520 013727 
025524 000000 
025526 005367 
025532 001375 
025534 005367 
025540 001367 

4325 025542 005337 

4326 025546 001356 

4327 025550 004737 

4331 025554 010001 

4332 025556 
025556 104455 
025560 000174 
025562 003550 
025564 011656 

4333 025566 

4334 025566 012704 

4335 025572 004737 

4336 025576 103407 

4337 025600 004737 

4341 025604 010001 

4342 025606 
025606 104456 
025610 000175 
025612 004754 
025614 011656 

4343 025616 
025616 104406 

4344 025620 004737 

4345 025624 103411 

4346 025626 016501 

4347 025632 010004 

4348 025634 004737 
4352 025640 
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TEST 1« SUBTEST 4 



SEQ 116 



VERIFIES THAT THE ^PACE-REVERSE PORTION OF THE WRITE TAPE NARK 
RETRY OPERATION IS PERFORMED BY REWINDING THE TAPE* ISSUING SEVERAL 
WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION. THEN ISSUING TWO SPACE 
RECORDS REVERSE COMMANDS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE 
COMMAND SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 



032130 
032222 
032264 

023420 026540 
016634 



000250 
002116 
177772 
177756 
026540 
020070 



10$: 



026350 
010322 

020070 



20$: 



23$: 



010424 
000000 
020070 



B6NSUB 



JSR 
JSR 
JSR 
NOV 
JSR 
BCS 
DELAY 



DEC 



JSR 
NOV 
ERRDF 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
NOV 
NOV 

JSR 

ERRHRD 



PC.T29REST 

PC,T29RT2 

PC.T29RT3 

#ld000..T29DLY 

PC.SOFINIT 

20$ 

250 



T29DLt 
10$ 

FC.FATCMK 
RO.RI 

ERRNO.SFIERR.SFINSG 



fT29PACKET,R4 

PC.WRTCNR 

23$ 

PC.FATCNK 
RO.RI 

ERRN0.URTMS6.SFINS6 



PC, REWIND 
30$ 

TSSR(RS),R1 

R0,R4 

PC.FATCHK 

ERRM0.T29RWN.PKTSSR 



;»»»»»» BEGIN SUBTEST »»»»»» 
T1.4: 

TRAP C$BSUB 

;SET CONNAND PACKET 

;SET UP OTHER CONNAND PACKET 

; SET UP OTHER CONNAND PACKET 

;SET UP DELAY ROUTINE 

;D0 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;DELAY ABOUT .25 SECONDS 

NOV #250«(PC)« 
.WORD 0 

NOV L$DLY.(PC>* 
.WORD 0 
DEC -6(PC) 
BF.E .-4 
DEC -22 (PC) 
.-20 



:BUNP DELAY ROUTINE DOWN 

:BR, IF NORE DELAY TIME LEFT 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 124 
.WORD SFIERR 
.WORD SFIMS6 

:SUBROUTINE NEEDS PACKET ADDRESS 

; ISSUE WRITE CHARACTERISTICS 

:BR. IF CONNAND ISSUED OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:SAVE CONTENTS OF TSSR 

.•WRITE CHARACTERISTISC FAILkD 

TRAP C$ERHRO 
.WORD 125 
.WORD WRTNSG 
.WORD SFINSG 

.-LOOP IF SELECTED 

TRAP C$CLP1 
:CALL TAPE REWIND CONNAND 
:BR. IF NO PROBLEN 
.•GET TSSR 

:SAVE PACKET ADDRESS 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

■RgWlND NOT ACCEPTED 



CZTUZAO TU80 FRONT END PRT D 
TEST 1: yRITE TAPE HARK RETRY 
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025640 
02S6A2 
025644 
025646 

4353 025650 
025650 

4354 025652 

4355 025656 

4356 025660 

4357 025664 

4358 025666 

4359 025670 

4363 025674 
025674 
025676 
025700 
025702 

4364 025704 
025704 

4365 025706 

4366 025714 

4367 025720 

4368 025724 

4369 025730 

4370 025734 

4371 025740 

4372 025742 

4373 025744 

4377 025750 
025750 
02S7S2 
025754 
025756 

4378 025760 
025760 

4379 025762 

4380 025766 

4381 025774 

4382 026002 

4383 026006 

4384 026012 

4385 026016 

4386 026022 

4387 026026 

4388 026030 

4389 026032 

4393 026036 
026036 
026040 
026042 
026044 

4394 026046 
026046 

4395 026050 

4396 026052 

4397 026054 

4398 026062 



104456 
000176 
030260 
011670 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000177 
027751 
016334 

104406 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000200 
030577 
011670 

104406 
012703 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000201 
030577 
011670 

104406 
005303 
001355 
012737 
012737 



30S: 



026376 
000002 

020070 



40S: 



140011 026500 

026500 

177776 

017110 

000000 

000200 



020070 



70S: 

000012 150$: 
000001 026502 
141011 026500 
026500 

177776 155$: 

017110 

000000 

000200 



020070 



CKLOOP 

mv 

MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRO 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
NOV 
CMP 
BEQ 
JSR 

ERRHRD 



CKLOOP 

NOV 
NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



140410 026500 
000001 026502 



165$: CKLOOP 

DEC 
BNE 
NOV 

NOV 



T29BFR^6.R1 

R1.R2 

•BIT1,R2 

R1,R2 

40$ 

PC.FATCHK 

ERRN0,T29B0T,EXPREC 



#140011. T29PK3 

«T29PK3.R4 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

fSSR,R2 

R1,R2 

70$ 

PC.FATCHK 

ERRN0.T29UDC.PKTSSR 



f10..R3 

f1.T29RB 

f 14101 1.T29PK3 

fT29PK3.R4 

R4JSDB(R5> 

PC.WAITF 

TSSR(R5),R1 

fSSR.R2 

R1.R2 

165$ 

PC.FATCHK 

ERRN0.T29yDC.PKTSSR 



R3 
155$ 

#140410.T29PK3 
f1.T29RB 



SEO M7 



TRAP CtERHRD 
.UORD 126 
.WORD T29RWN 
.WORD PKTSSR 

:L00P IF SELECTED 

TRAP C$CLP1 

.-PICK UP XSTO 

.•SET UP EXPECTED 

.-SET BOT BIT IN EXPECTED 

.-DOES EXP s REC'D 

:BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.-TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 127 
.WORD T29B0T 
.WORD EXPREC 

:L00P IF SELECTED 

TRAP CSCLPl 
;URITE TAPE MARK.ACK.CVC^I COMMAND 
:SET UP R4 yiTH PACKET ADDRESS 
.•ISSUE COMHAND 
:UAIT FOR SSR TO SET 
;GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
;BH. IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER URITE TAPE NARK 

TRAP CSERHRD 
.WORD 128 
.WORD T29WDC 
.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 
;NUMBER OF RECORDS TO URITE TN 
:SET UP PACKET 

:URITE TAPE NARK RETRV.ACK.CVC=1 CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE COMMAND 
.-WAIT FOR SSR TO SET 
.•PICK UP TSSR 

:SET UP EXPECTED (SSR ONLY) 

;UAS STATUS GOOD 

;BR. IF TERMINATION WAS GOOD 

:INC AND CHECK FOR MORE THAN 23 ERRORS 

:TSSR NOT CORRECT AFTER WRT TAPE N. 

TRAP CSERHRD 
.UORD 129 
.WORD T29UDC 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP CSCLPl 

:BUMP COUNTER DOWN 
:BR. IF LESS THAN 10 TAPE MARKS 
.•SPACE REVERSE. ACK.CVC=1. COMMAND 
zNUHBER OF RECORDS TO SPACE BACK 



B 10 



CZTJZAO TU80 FRONT END PRT D 
TES 1 : WRITE TAPE HARK RETRY 
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;599 026070 
4<.00 02607A 

4401 026100 

4402 026104 

4403 026110 

4404 026114 

4405 026116 

4406 026120 

4410 026124 
026124 
026126 
026130 
026132 

4411 026134 
026134 

4412 026136 

4413 026144 

4414 0261 S2 

4415 026156 

4416 026162 

4417 026170 

4418 026174 

4419 026200 

4420 026204 

4421 026206 

4422 026210 
026210 
026214 
026216 
026222 
026224 
026230 
0£6232 
026236 

4423 026240 

4424 026244 

4425 026246 

4429 026252 
026252 
026254 
026256 
026260 

4430 026262 
026262 

4431 026264 

4432 026270 
44''.3 026272 

4434 026276 

4435 026300 

4436 026302 

4440 026306 
026306 
026310 
026312 
026314 

4441 026316 
026316 



012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000202 
027622 
011670 

104406 
012737 
012737 
012704 
010465 
012737 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
004737 

104456 
000203 
031624 
011670 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000204 
031706 
016334 

104406 



026500 
177776 
017110 
000000 
100204 



020070 



100410 026500 
000005 026502 
026500 
177776 

000310 026540 
017110 
000000 
100204 



000250 
002116 
177/72 
177756 
026540 
020070 



HOV 
NOV 

JSR 

nov 

NOV 
CHP 
BEQ 
JSR 

ERRHRD 



222S: CKLOOP 

NOV 
NOV 
NOV 
NOV 
NOV 

230S: JSR 
NOV 
NOV 
CNP 
BEQ 
DELAY 



026404 
000001 

020070 



DEC 
BNE 
JSR 

ERRHRO 



260$: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRO 



2701: CKLOOP 



#T29PK3.R4 

R4«TSDB(R5) 

PCUAITF 

T$SR(R5),R1 

fSSKiSC'.BIT2,R2 

R1.R2 

22h 

PC.FATCHK 

ERRNO,T29V0E,PKTSSR 



#100410.T29PK3 

«5.T29RB 

#T29PK3,R4 

R4.TS0B(R5} 

f200.«T290LY 

PC.UAITF 

TSSR(R5)«R1 

fSSR!SC!BIT2,R2 

R1.R2 

260$ 

250 



T290LY 
230$ 

PC.FATCHK 

ERRN0,T29SDS.PKTSSR 



T29BFR^14.R1 

R1,R2 

«BiT0,R2 

R1,R2 

270$ 

PC.FATCHK 

ERRNO.T29RIB.EXPREC 



SEQ 118 



:SET UP R4 WITH PACKET ADDRESS 

; ISSUE CONNAND 

.-WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

*BR IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TS$R INCORRECT AFTER SPACE CND. 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 
^50 
T29WDE 
PKTSSR 



.LOOP IF SELECTED 

TRAP C$CLP1 
; SPACE REVERSE .ACK, CONNAND 
:NUNBER OF RECORDS TO SPACE BACK 
.-SET UP R4 WITH PACKET ADDRESS 
: ISSUE CONNAND 
.•NEED DELAY 
.•WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
;SET UP EXPECTED 
.•ARE THEY EQUAL 
'BR IF OK 

;DELAY ABOUT .25 SECONDS 

NOV f250.<PC)« 
.WORD 0 

NOV LSDLY.(PC)* 
.WORD 0 
DEC -6<PC) 
BNE .-4 
DEC -22(PC) 
BNE .-20 

;LOOP ROUTINE 

:LOOP BACK IF NOT ENOUGH DELAY 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER SPACE REV CND. 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
131 

T29SDG 
PKTSSR 



TRAP C$CLP1 



;PICK UP XST3 
:SET UP EXPECTED 
;RIB SHOULD BE SET 
:IS RIB SET 

;BR. IF RIB WAS SET (GOOD) 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TNK NOT SET AFTER READ REV 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRO 
132 

T29R1B 
EXPREC 



JfiAP XSOPl 



C 10 



CZTUZAO TU80 FRONT END PRT d 
TEST 1: WRITE TAPE NARK RETRY 
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026520 
026520 
4445 026322 
026522 
026522 

4444 
4445 
4446 
4447 

4448 026524 

4449 026350 

4450 026352 
44ST 026556 

026336 
026340 



104406 



104405 



004757 
105002 
00015? 

104452 
003754 



5:0S: 



CKLOOP 
ENDSUB 



017544 
025674 



1b3S: 



JSR 
BCC 
JMP 
EXIT 



PC.TSTLOOP 
165t 
T29L00P 
TST 



;L00P if SELECTED 

TRAP CICLP' 
;«««««< END SUBTEST »»»»»> 
LI 0042: 

TRAP CtESUe 



;D0 UE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
;ALL DONE THIS TEST 

TRAP CtEXIT 
.WORD L10056- 



D 10 



CZTUZAO TU80 FRONT END PRT D 
TEST WRITE TAPE HARK RETRY 

4455 
4454 
4455 

4457 026342 

4459 026350 

4460 026350 014004 

4461 026352 026360 

4462 C26354 000000 

4463 026356 000012 
4A64 026360 

4465 026360 026370 

4466 026362 000000 

4467 026364 000024 

4468 026366 000000 

4469 026370 
4470 

4471 
4472 

4474 026452 

4476 026460 

4477 026460 100006 
4476 026462 026510 

4479 026464 000000 

4480 026466 000006 
44B2 026470 

4484 026500 

4485 026500 140005 

4486 026502 

4487 026502 003072 

4488 026504 000000 

4489 026506 000000 
4490 

4491 

4492 026510 

4493 026510 010 

4494 026511 200 

4495 026512 000000 

4496 026514 000000 
4497 

4498 
4499 

4500 026516 140001 

4501 026520 140401 

4502 026522 141001 

4503 026524 161001 

4504 026526 141401 

4505 026530 161401 

4506 026552 177777 
4507 

4508 026554 000000 

4509 026536 000000 

4510 026540 000000 
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.'LOCAL STORAGE FOR THIS TEST 



SEQ 



.BLKB 
T29PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T29DATA: 

.WORD 
.WORD 
.WORD 
.WORD 
T29BFR: .BLKW 



10-<.-TUV2At7> 

14004 
T29DATA 

0 

10. 

T29BFR 
0 

20. 

0 

25. 



;WR1TE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-<.-TUV2At7> 



T29PK2: 



T29PK3: 



.WORD 100006 

.VORD T298F2 

.WORD 0 

.WORD 6. 

.BLKB 10-<.-TUV2At7> 

.WORD 140005 



T29RB: 

T29UB: .WORD FREE 

.WORD 0 

T29S2: .WORD 0 

.EVEN 

T298F2: 

T29BS0: .BYTE 10 

T29BS1: .BYTE 200 

T29S2: .WORD 0 

T29S3: .WORD 0 



.EVEN 

.TAPE MOTION PACKET COMMAND VALUES 
T29RN: .WORD 140001 
140401 
141001 
161001 
.WORD 141401 
.WORD 161401 
.WORD 177777 



T29WDR: .tfORO 
T29C0N: .WORD 
.WORD 



T29CNT 
T29RSZ 
T29DLY 



.WORD 
.WORD 
.WORD 



0 
0 



.•COMMAND PACKET FOR TfST 

;WRITE CHARACTERISTICS COMMAND. WITH CVC«1. ACK 
.•ADDRESS OF CHARACTERISTICS BLOCK 

; STARTING VALUE OF BLOCK SIZE 
.-CHARACTERISTICS DATA BLOCK 
; ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 

.MESSAGE BUFFER 



:write sub sys hem command. and ack 
;address of select block data 

:si:e of data packet 



;WkITE TAPE NARK RETRY COMMAND. CVC-1 AND ACK 
.•ADDRESS OF WRITE BUFFER 
;S1ZE OF BUFFER (EXTENT) 



.•BSELO AREA 
;BSEL1 AREA 
;SEL 2 AREA 
:DATA AREA 



:READ DATA 

.•READ DATA REVERSE 

;READ PREVIOUS OPP^O 

.•READ PREVIOUS 0PP»1 

jWRITE TAPE NARK RETRY NEXT OPP^O 

.•WRITE TAPE NARK RETRY NEXT OPPsI 

:END OF DATA 



.-TAPE RECORD COUNTER STORAGE AREA 
.RECORD STORAGE SIZE AREA 
: DELAY COUNTER STORAGE AREA 



E 10 



CZTUZAO TU80 FRONT END PRT D 
TEST 1: WRITE TAPE HARK RETRY 



4512 
4S13 
4S14 
4S1S 
4516 
451? 

4518 02654;; 
^519 026563 

4520 026670 

4521 026760 

4522 027027 
4!>2S 027143 

4524 027257 

4525 027341 

4526 C27411 

4527 027466 
4<28 027S47 
4529 027622 
4530 

4531 027704 

4532 027751 

4533 030016 

4534 030104 

4535 030202 

4536 030260 

4537 030327 

4538 030402 
'539 030470 

4540 030577 

4541 030671 

4542 030744 

4543 031036 

4544 031125 

4545 031207 

4546 031271 

4547 031357 

4548 031445 

4549 031543 

4550 031624 

4551 031706 

4552 032006 

4553 032101 
4554 
4555 
4556 
4557 

4558 
4559 
4560 
4561 

4562 032130 

4563 032130 

4564 032134 012701 

4565 032140 012721 

4566 032144 012721 

4567 032150 005021 

4568 032152 012721 
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.•LOCAL TE'fT MESSAGES FOR TEST 



104 


162 


151 


T290FL: 


.ASCI 


194 


141 


1 o\i 






197 

1 C ' 


1 cc 


111 
III 


1 CTnCr • 




124 


121 


1 cj 


1 CwnVT • 




127 


192 


111 

III 


T9MRf • 

1 CTnnr • 




127 


122 


111 

III 


T29RR6* 


ASf I 


120 


117 

1 1 r 


121 


T29SC • 

1 C7dv « 


ASCI 


122 


111 

III 


102 

1 vc 


T29LOR • 


ASCI 


124 


12^ 


123 


T29yDF ' 

l&7Wlrr « 


ASCI 


111 

1 V 1 


154 

1 


154 


T29L0Q: 


ASCI 


127 


122 


111 

III 


T29SSR: 


ASCIi 


124 


123 


123 

1 »^ 


T29yDC: 


.ASCL 


124 


123 


123 


T29URT: 


.ASCI 


124 


141 


160 

1 WW 


T29BOT: 


ASCI 


104 


141 


164 


T29DTA: 


.ASCI 


127 


122 


111 


T29EOT: 


.ASCI 


124 


123 


123 


T29TH: 


.ASCI 


122 


145 


167 


T29RUN: 


.ASCI 


122 


101 


115 


T29RNC: 


.ASCL 


124 


123 


123 


T29AN3; 


.ASCI 


124 


123 


123 


T29UDD: 


.ASCL 


124 


123 


123 


T29UDC: 


.ASCL 


103 


126 


103 


T29VCK: 


.ASCL 


124 


123 


102 


T29BA: 


.ASCI 


127 


122 


111 


T29U$S: 


.ASCL 


122 


145 


141 


T29L0N: 


.ASCL 


122 


US 


141 


T29L0P: 


.ASCL 


122 


145 


163 


T29PBP: 


.ASCI 


122 


145 


141 


T29TRL: 


.ASCI 


104 


141 


164 


T29NEQ: 


.ASCL 


124 


123 


123 


T29RD6: 


.ASCL 


124 


123 


123 


T29SDG: 


.ASCI 


127 


122 


111 


T29RIB: 


.ASCL 


124 


115 


113 


T29RRN: 


.ASCI 


127 


162 


151 


TST29JD: 










.EVEN 



Orivt Is OFFLINE* 

T«pt Position Incorrtct Afttr WRITE TAPE NARK RETRY Previous (0PP«1)' 
WRITE TAPE NARK RETRY. At BOT, Falltd To S*t NEF (XSTO)* 
TSSR Incorrtct After READ DATA CoMMnd* 

WRITE TAPE NARK RETRY Previous (Space Reverse. Read Forward) CoMand Failed 

WRITE TAPE HARK RETRY Previous (Read Forward. Space Reverse) CoMand Failed 

POSITION (Space CoMiand) Failed. TSSR Not Correct* 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Node Bits Set* 

Illegal Node Bits. Failed To Set ILC Bit In xSTO* 

WRITE TAPE HARK RETRY COHNANO Not Accepted* 

TSSR Not Correct After SPACE REVERSE DATA CoMand' 

TSSR Not Correct After WRITE COMand* 

Tape Not At BOT After REWIND CoMand* 

Data Written To Tape Not Equal To Data Read Fro^ Tape' 

WRITE TAPE HARK RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT* 

TSSR Not Correct After SPACE REVERSE Into BOT* 

Rewind (POSITION) CoMand Not Accepted* 

RAH Error. Correct Data Pattern Not In Ran* 

TSSR Inlt. Failed After UNITE TAPE NARK RETRY CONHAND* 

TSSR Not Correct After WRITE TAPE NARK RETRY DATA CoMMnd. SWB Bit Set' 

TSSR Not Correct After WRITE TAPE HARK RETRY DATA Cowiand' 

CVC Set. D{dn*'t Reset VCK In Nessaae Buffer* 

TSBA Not Correct After WRITE TAPE NARK RETRY DATA CoMMand* 

WRITE SUBSYSTEN HENORY CoMiand Not Accepted (RAN Read)* 

Reading Long Record Failed To Set RLL Bit In XSTO* 

Reading Long Record Failed To Set RLS Bit In XSTO* 

Residual Byte CoMit Incorrect After Short Record Read* 

Reading Long Record Failed To Give Tape Status Alerii* 

Data WRITE TAPE NARK RETRY Froia Tape Not Correct. After SWB-1* 

TSSR Incorrect After READ REVERSE Into Tape Nark* 

TSSR Incorrect After SPACE REVERSE Into Tape Nark* 

WRITE TAPE NARK RETRY At First Record. Failed To Set RIB (XST3)* 

THK (XSTO) Failed To Set After READ REVERSE Into Tape Nark* 

ASCI 2 'Write Tape Hark Retry' 



.ROUTINE TO RESTORE CQHHAND PACKET TO START-UP (DEFAULT) VALUES 
.•WRITE SUBSVSTEH HERORY COHRAND 



T29REST: 



026350 
140004 
026360 

000012 



SAVREG 

HOV 

HOV 

HOV 

CLR 

HOV 



fT29PACKET.R1 
#140004. (R1)« 
fT29DATA.(Rl)« 
(RD* 

f10..(R1> 



;SAVE THE REGISTERS 

: START OF THE PACKET 

:WRITE SUBSVSTEH HER. WITH ACK. CVC-1 

: ADDRESS OF CHARAISTICS DATA BLOCK 

.'EXTENDED ADDRESS 

.SI7F Of PATA BLOCK IN BYTES 



CZTUZAO TU80 FRONT END PRT 0 PMCRO N1200 29-nAR-83 
TCST 1: yRlTE TAPE fURK RETRY 





A1 9791 


A9iL17A 
UcOjrU 




nUV 




AACA91 






f 1 D 




A19791 


AAAA9/. 




MAU 




AAKA9i 








/.CTV AV3179 
h^fS \j3c\fc 


A1 971 1 


AAAAAA 




MAU 


L^yL AV917iL 


A1 97A9 


AAAAVA 




MAW 


1.C7C AV99A9 


ni 97&9 


1 77777 n9AX7n 


OH>« 


MAW 

nuv 


LKJt^ AV391A 


AAC7^9 
UU9r%C 






T<T 


^)rr VJCClC 


A9n997 


AAAAAA 
UUwUUU 








AA1 t71 






DUE 


%3r7 UAccCU 


AAA9A7 






n 1 « 




























1 C rfl 1 C • 




*l30d V3CCCC 










L^IU^ AY999A 


019701 






HOW 


^cac A«99'K9 


019791 


14000& 




MOV 


4C|UL AT99VA 


01 9791 


09&S10 




MOV 




00^091 








zcnn AV9944 


019791 


OOOOOA 




MOV 


%90t VSCCjV 


AAS091 

WV3UC 1 






CLR 


^CQA AX99^9 

%3tU VJCC3C 


019701 

U IC' w 1 






MOV 




00S091 






CLR 


4S99 AX99AA 


00S011 






CLR 


&SOX AY99A9 


00A907 

WVCvi 




T?9RT3: 


RTS 


L'iQL A'<I99^ 








4CO< AX99&4 








SAVREG 




019701 


026500 




MV 


*37r vJkC'*! 


019791 


000000 
www 




NOV 


4598 032S00 


012721 


000000 




NOV 


4599 032304 


005021 






CIR 


4600 032306 


012711 


000000 




NOV 


4601 032312 


090207 






RTS 


4602 032314 








ENOTST 


032314 










032314 


104401 
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SEQ 122 



fT29BFR,(R1)« 
(R1)« 

f20..(R1)« 

fO.iRD 
f24.,R2 

f177777.T29BFR(R2) 

-(R2) 

R2.ffO 

64S 

PC 



.•ADDRESS OF NESSA6E BUFFER 

: LENGTH OF NESSA6E BUFFER 

; SELECT DRIVE ZERO (0) 

:NUNBER OF LOCATIONS TO BE CLEARED 

:ALL ONES TO NESSA6E BUFFER 

:NEXT LOCATION 

.•CHECK FOR END OF LOOP 

.'KEEP GOING UNTIL DONE 

;RETURN 



ffT29PK2.R1 

#140006. (R1)« 

fT29BF2.(R1>« 

(R1)« 

f6..(R1)> 

(R1)» 

fT29BF2.R1 
(R1)« 
(R1) 
PC 



#T29PK3.R1 

fO.(RI)^ 

ffO.(Rl)« 

(R1)« 

iO,(R1) 

PC 



;SAVE THE REGISTERS 

; START OF THE PACKET 

;URITE SUBSYSTEN NEH. UITH ACK.CVC^I. 

;ADDRESS OF DATA BLOCK 

.'EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

.•POINT TO DATA SEL AREA 



.•RETURN 

.-SAVE THE REGISTERS 
; START OF THE PACKET 
;URITE SUBSYSTEM KM. UITH ACK. 
.ADDRESS OF DATA BLOCK 
.•EXTENDED ADDRESS 
.-SIZE OF DATA BLOCK IN BYTES 
.•RETURN 



L10036: 



TRAP 



CSETST 



6 10 



CZTUZAO TU80 FRONT END PRT 0 
TEST 2: SKIP TAPE NARKS 



460S 

4606 

4607 

4608 

4609 

'»610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

46 i9 

4620 

4621 

4622 

4623 032316 
032316 

4624 032316 005037 

4625 032322 005037 

4626 032326 012737 

4631 032334 012700 

4632 032340 004737 

4633 032344 012737 
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.S'irYL TEST 2: SKIP TAPE HARKS 



THIS VEST VERIFIES PROPER OPERATION OF THE SKIP TAPE NARKS 
FORWARD AND SKIP TAPE HARKS REVERSE COHHANDS. PROPER OPERATION 
UNDER CONTROL OF ALL COHBINATIONS OF THE ENABLE SKIP TAPE HARKS 
STOP (ESS> AMD ENABLE TAPE HARKS STOP OFF BOT (ENB) BITS SPECIFIED 
BY THE WRiTE IMARACTERISTICS COHHAND. THE TEST CONSISTS OF THE 
FOLLOWING SUBTESTS (FOR EACH SUBTEST. THE TAPE IS FIRST WRITTEN 
WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE HARKS 
AND/OR DOUBLE TAPE NARKS. 



THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 



SEO 123 



4634 
4635 
4636 
4637 
463B 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 



002170 
003100 
005672 
041111 
017376 
000001 



002U6 
002164 



032352 
OJ2352 
032352 
032352 



B6N1ST 

CLR 
CLR 
HOV 
NOV 
JSR 
HOV 



FATFLG 
KTFLG 

ffEPRTI .EPRTSW 
ffTST30lD.R0 
PCTSTSETUP 
f 1 .LOOPCNT 



T2:: 

.•CLEAR FATAL ERROR* FLAG 
;HOLD OFF KT11 

;PRIHARY ERROR HESSA6E 
.•ASCII HESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
:PERFORN 1 ITERATIONS 



TEST 2. SUBTEST 1 



VERIFIES THAT A SKIP TAPE HARKS FORWARD COHHAND WITH 

A TAPE HARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 

IS FIRST REWOUND, THEN WRITTEN WITH SEVERAL 'TILES": 

EACH FILE CONSISTS OF A NUHBER OF DATA RECORDS 

FOLLOWED BY A TAPE HARK. THE FINAL FILE IS 

TERHINATED BY A DOUBiE TAPE HARK. EACH DATA RECORD 

CONTAINS A FILE NUHBER AND THE RECORD NUHBER WITHIN 

THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 

VERIFIED BY READING THE DATA. THE TAPE IS AGAIN 

REWOUND AND A SERIES OF SKIP TAPE MARKS FORWARD 

COHHANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 

TERHINATION, THK»1 STATUS. TAPE POSITION VIA READ 

COHHAND) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 

COHHAND. A WRITE CHARACTERISTICS COHHAND IS ISSUED TO 

SET UP THE ESS AND ENB CONTROL BITS. ALL 

COHBINATIONS OF ESS AND ENB ARE USED (00.01.10. 

11): OPERATION SHOULD BE THE SAHE IN EACH CASE FOR 

THIS SUBTEST. 



T30L00P: 



BGNSUB 



104402 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.1: 

IRAP CIBSUB 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NAKKS 



H 10 
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SEQ 12« 



4665 032354 

4664 032360 

4665 032364 

4666 032370 

4667 032374 

4668 032402 

4669 032406 

4670 032410 
032410 
032414 
032416 
032422 
032424 
032430 
032432 
032436 

4671 032440 

4672 032444 

4673 032446 

4677 032452 

4678 032454 
032454 
032456 
032460 
032462 

4679 032464 



004757 
005037 
004757 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000311 
003550 
011656 



041132 
036554 
041224 
041266 
176750 
016654 



000250 
002116 
177772 
177756 
056536 
020070 



036536 



10S: 



JSR 
CLR 
JSR 

m 

NOV 
JSR 
BCS 
OELAV 



PC.T50REST 

T50FCN 

PC,T50RT2 

P''.T50RT5 

«65uOO.,T50DLV 

PC.SOFINIT 

20$ 

250 



SET CONMAND PACKET 

CLEAR FILE COUNTER 

SET UP OTHER CONNAND PACKET 

SET UP OTHER COMMAND PACKET 

SET UP DELAY COUNTER 

DO INITIALIZE ON CONTROLLER 

BR If INIT WAS OK 

DELAY ROUTINE CALL 

MOV 

.yORD 

MOV 

.yORD 

DEC 



DEC 



DEC 



JSR 
MOV 
ERRDF 



TSODLV 
10S 

PC.rATCNK 
R0.R1 

ERRII0«SFIERR.SnMS6 



#250,(PC)« 
0 

L»DLY,(PC)* 
0 

-6{PC) 
.-4 

-22 (PC) 
.-20 



052464 012704 036350 



4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 

4689 032470 

4690 052474 

4691 032476 

4695 052502 

4696 052504 
052504 
032506 
052510 
052512 

4697 052514 
0525U 

4698 
4699 
4700 
4701 
4702 
4705 
4704 

4705 052516 

4706 052522 

4707 052524 

4708 052526 



20ft: 



NOV «T30PACKET.R4 



:BUMP COUNTER 

;BR. IF MORE C0UNTIN6 TO DO 

:INC AND CHECK FOR MOR£ THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR HAS NOT OK 

TRAP CSERDF 
.WORD 201 
.UORD SFIERR 
.UORD SFINSG 



.'SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE URITE CNARACTERISTICS COMMAND 



004757 
105407 
004757 
010001 

104456 
000512 
004754 
011656 

104406 



010522 
020070 



23ft: 



JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 



PC.WRTCMR 
25ft 

FC.FATCHK 
R0.R1 

ERRN0.IIRTNS6.SFIMS6 



.•ISSUE URITE CHARACTERISTICS 
;BR. IF CONMAND ISSUED OK 
;INC AND CHECK FOR NOME THAN 25 
:SAVE CONTENTS OF TSSR 
.-URITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.'LOOP IF SELECTED 

TRAP 



ERRORS 



CftERHRD 

202 

WRTMSG 
SFINSG 

CftCLPI 



ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



004757 
105411 
010004 
016501 



010424 
000000 



JSR 
BCS 
NOV 
NOV 



PC. REWIND 

50ft 

R0.R4 

TSSR<R5).R 1 



.•CALL TAPE REWIND CONNAND 
:BR. IF NO PRQBIEN 
.-GET PACKET ADDRESS 
;fiFT STATUS agfiiSTFa 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE HARKS 



4709 032S32 

4713 032S36 
032536 
032S40 
032^42 
032544 

4714 032546 
032546 

4715 
4716 
4717 
4718 
4719 
4720 
4721 

4722 032550 

4723 032554 

4724 032556 

4725 032562 

4726 032564 

4727 032566 

4731 032572 
032572 
032574 
032576 
032600 

4732 032602 
032602 

4733 032604 

4734 032612 

4735 032616 

4736 032624 
4737 

4738 
4739 
4740 
4741 
4742 
4743 

4744 032632 

4745 032640 

4746 032644 

4747 052650 

4748 032652 

4749 052654 

4750 052656 

4751 032662 

4752 052666 

4753 052672 

4754 052676 

4755 052702 

4756 052704 

4757 052706 
4761 

4762 
4763 

4764 032712 



004737 020070 

1044S6 
000313 
040120 
011670 

104406 
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JSR PC.FATCNK 

ERRNRD ERRN0.T30RWN«PKTSSR 



30S: CKLOOP 



SEO 125 



;INC AND CHECK FOR MORE THAN 25 ERRORS 



.-REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.yORO 
.yORD 
.WORD 



CIERHRO 
203 

T30RyN 
PKTSSR 



TRAP CfCLPI 



GET ENTENOED STATUS REGISTER ZERO (XSTO) FROn MESSAGE MIFFER 



013701 036576 
010102 

052702 000002 

020102 

001406 

004757 020070 

104456 
000514 
057721 
016554 

104406 

012757 000001 056554 

012703 000001 

013757 005072 056502 

012757 005720 056506 



40$: 



64$: 
65$: 



NOV 
NOV 
BIS 
CNP 
BEO 
JSR 

ERRHRD 



CKLOOP 



T50BFRt6.R1 

R1.R2 

«BIT1.R2 

R1.R2 

40$ 

PCJATCHK 

ERRNO.T5060T.EXPREC 



NOV 
NOV 
NOV 
NOV 



*1..T30FCN 
f1,R5 
FREE.TSOVB 
f2000..T30SZ 



;yRIfE DATA.ACK,CVC«1 CQNNAND 



012737 140005 056500 

012704 056500 

015702 056554 

000502 

010501 

060201 

010177 150210 
010465 177776 
004757 017110 
016501 000000 
012702 000200 
020102 
001406 

004757 020070 



NOV f140005,T50PK5 

NOV fT50PK5.R4 

NOV T50FCN.R2 

SUAB R2 

NOV R3,R1 

ADO R2,R1 

NOV Rl.aFREE 

NOV R4,TSD6(RS> 

JSR PC.UAITF 

NOV TSSR(R5).R1 

NOV fSSR.R2 

CNP R1.R2 

BEO 70$ 

JSR PC.FATCHK 



ERRSOFT ERRNO.T50WDD,PKTSSR 



:PICK UP XSTO 

:SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP » REC'D 

;Bft, IF EQUAL (OK) 

; INC AND CHECK FOR NONE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.UORD 
•WORD 

:LUOP IF SELECTED 

TRAP 

.SET 'TILE" COUNTER AT 1 DECIMAL 
;ONE RECORD PER "FILE" 
.SET UP PACKETS*S WRITE BUFFER 
;SET RECORD SIZE AT 2000 BYTES 



C$ERHnD 
204 
T50BOT 
EXPREC 

C$CLP1 



;WRITE DATA.ACK.CVCsl CQNNAND 

;SET UP R4 WITH PACKET ADDRESS 

;6ET FILE COUNTER 

;NOVE TO UPPER BYTE 

;6ET RECORD COUNTER 

;FILE COUNTER IN UPPER. RECORD « LOW 

;NOV TO OUT PUT BUFFER 

; ISSUE CQNNAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

*BR IF OK 

• INC AND CHECK FOB NORE THAN 25 ERRORS 
;SOFT ERROR. DON'T CARE ABOUT WRITE 
:CONNAND*S RESULTS - CHECKING SKIP 
;TAPE NARK CQNNAND 
TSSB IMCflRRfCT AfTFR WRITE DATA 



CZTUZAO TUSO FRONT END PRT D 
TEST 2: SKIP TAPE HARKS 
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032712 
0S27U 
032716 
032720 

4765 032722 
032722 

4766 032724 

4767 032726 
476S 032732 
4769 

4770 
4771 
4772 
4773 
4774 
4775 

4776 032734 

4777 032742 

4778 032746 

4779 032752 

4780 032756 

4781 032762 

4782 032766 

4783 032770 

4784 032772 

4788 032776 
032776 
033000 
033002 
033004 

4789 033006 
033006 

4790 033010 

4791 033014 

4792 033022 
4793 

4794 
4795 
4796 
4797 
4796 
4799 

4800 033024 

4801 033032 

4802 033036 

4803 033042 

4804 033046 

4805 0330S2 

4806 033056 

4807 033060 

4808 033062 

4812 033066 
033066 
033070 
033072 
033074 

4813 033076 



104457 
000315 
0370S0 
011670 

104406 
005203 
020327 
001331 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000316 
040242 
011670 

104406 
005237 
023727 
001273 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000317 
040242 
011670 



70i: CKLOOP 



000021 



INC R5 
CMP R3.f21 
BNE 65S 



TRAP 
.yCRD 
.WORD 
.WORD 

;L00P if SELECTED 

TRAP 

.•COUNT THE RECORD COUNTER DOWN 
;AT 20 YET 
:BR. IF NOT AT 20 RECORDS WRITTEN 



CIERSOFT 
205 

T30WDD 
PKTSSR 

C»CLP1 



;WRITE TAPE flARK.ACK.CVC'l COfWAND 



141011 036500 

036500 

177776 

017110 

000000 

000200 



020070 



NOV 


f 14101 1,T30PK3 


;WRITE TAPE NARK.ACK.CVCsl CONNAND 


NOV 


f130PK3.R4 


;SET UP R4 WITH PACKET ADDRESS 


NOV 


R4.TS0B(RS> 


; ISSUE COHHAND 


JSR 


PC.WAITF 


:WA1T FOR SSR TO SET 


NOV 


TSSR(R5).R1 


.•PICK UP TSSR 


NOV 


fSSR.R2 


:SET UP EXPECTED (SSR ONLY) 
;WAS STATUS 600D 


CNP 


R1.R2 


BEQ 


160t 


;BR. IF TERNINATION WAS GOOD 


JSR 


PC.FATCHK 


;JNC AND CHECK FOR NORE THAN 25 ERRORS 


ERRHRO 


ERRNO,T30UDC«PKTSSR 


:TSSR NOT CORRECT AFTER WRT TAPE H. 



036534 

036534 000006 



160$: CKLOOP 

INC 
CNP 



T30rCN 

T30FCN.#6 

64S 



TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

; COUNT THE "FILE" COUNTER DOWN 

;WRITE 5 FILE TO TAPE 

;6R. IF NOT AT 5 FILES WRITTEN 



CSERHRD 
206 
T30WDC 
PKTSSR 

CICLPI 



WRITE TAPE NARK.ACK.CVCsl CCNHAND 



141011 036500 

036500 

177776 

017110 

000000 

000200 



020070 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRNRD 



16St; CKLOOP 



#141011 «T30PK3 

fT30PK3.R4 

R4JSDB(R5> 

PC.WAITF 

TSSR(R5).R1 

fSSR.R2 

R1.R2 

165$ 

PC.FATCHK 

ERRNO.T30WDC .PKTSSR 



:WRIT£ TAPE NARK.ACK.CVC-1 COHNAND 
:SET UP R4 WITH PACKET ADDRESS 
.-ISSUE CONNAHD 
;WAIT FOR SSR TO SET 
*PICK UP TSSR 

.-SET UP EXPECTED (SSR ONLY) 

:WAS STATUS GOOD 

:BR. IF TERN2NATI0N WAS GOOD 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.'TSSR NOT CORRECT AFTER WRT TAPE N. 

TRAP C$ERHRD 
.WORD 207 
.WORD T30WDC 
.WORD PKTSSR 

:LOOP If SELECTED 



010424 



000000 
020070 



CZTUZAO TU80 FRONT im PftT D 
TEST 2: SKIP TAPE MARKS 

033076 104406 

4814 
4ft1S 
4816 
4817 
4818 
4819 
4820 

4821 033100 004737 

4822 033104 103411 

4823 033106 010004 

4824 033110 016S01 

4825 033114 004737 

4829 033120 
033120 104456 
033122 000320 
033124 040120 
033126 011670 

4830 033130 
033130 104406 

4831 
4832 
4833 
4834 
4835 
4836 
4837 

4838 033132 013701 

4839 033136 010102 

4840 033140 052702 

4841 033144 020102 

4842 033146 001406 

4843 033150 004737 

4847 033154 
033154 104456 
033156 000321 
033160 037721 
033162 016334 

4848 033164 
033164 104406 

4849 033166 012703 
4850 

4851 033172 011337 

4852 0SS176 012704 
4853 
4854 
4855 
4856 
4857 
4858 
4859 

4860 033202 004737 

4861 033206 1034C7 

4862 033210 004737 

4866 033214 010001 

4867 033216 
033216 104456 
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SEO 127 



TRAP CULPI 



; ISSUE A REWIND TO lAPE DRIVE AND WAIT FOR SSR TO SET 



JSR 
BCS 
NOV 
NOV 
JSR 

ERRNRD 



170S: CKLOOP 



PC, REWIND 

1701 

R0.R4 

TSSR(R5),R1 
PC.fATCHK 

ERRNO.T30RWN.PKTSSR 



;CALL TAPE REWIND CONNANO 
;BR, IF NO PROBLEM 
:GET PACKET A9DRESS 
;6ET STATUS REGISTER 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CS£RHRD 
208 
T30RWN 
PKTSSR 

CSCLP1 



GET EXTENDED STATUS REGISTER ZERO (XSTO> FRON MESSAGE BUFFER 



036376 
000002 

020070 



036516 

036366 
036350 



1808: 



1828: 



MOV 
MOV 
BIS 
CMP 
BED 
JSR 

ERRHRD 



CKLOOP 
MOV 



T30BFR*6.R1 

R1.R2 

#BIT1.R2 

R1.R2 

ISOt 

PCFATCHK 

ERRNO.T30BOT.EXPREC 



MOV 
NOV 



#T30INV.R3 

(RS).TSOETH 
#T30PACKET,R4 



;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.•DOES EXP « REC'D 

;BR, IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

.SET UP POINTER TO COMMAND TABLE 

:6ET NEXT COMMAND 
; SUBROUTINE NEEDS PACKET ADDRESS 



CSERNRD 
209 
T30BOT 
EXPREC 

CSCLPl 



ISSUE WRITE CHARACTERISTICS COMMAND 



010522 
020070 



JSR PC.WRTCNR 

BCS 188$ 

JSR PC.FATCNK 

MOV R0.R1 

ERRHRD ERRNO.URTHSG.SFIMSG 



: ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
;INC AND CHECK FOR MORE THAN 25 ERRORS 
:SAVE CONTENTS OF TSSR 
:WRITE CHARACTERISTISC FAILED 
IfiAP C»tBMRD 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 



03322C 
033222 
033224 
4368 033226 
033226 

4869 
4870 
4871 
4872 
4873 
4874 
4875 

4876 033230 

4877 033236 

4878 033244 

4879 033250 

4880 033254 

4881 033262 

4882 033266 

4883 033272 

4884 033276 

4885 033300 
033300 
033304 
033306 
033312 
033314 
033320 
033322 
033326 

4886 033330 

4887 033334 

4888 033336 

4889 033342 

4890 033344 

4891 033346 

4895 03SS52 
033352 
033354 
033356 
033360 

4896 033362 
033362 

4897 
4898 
4899 
4900 
4901 
4902 
4903 

4904 033364 

4905 033370 

4906 033372 

4907 033376 

4908 035400 

4909 033402 
4913 033406 



000322 
004754 
011656 

104406 



012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
004737 

104456 
000323 
036774 
011670 

104406 
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188$: CKLOOP 



SEQ 128 



;SKIP TAPE flARK,ACK,CVC«1 COfWAND 



141010 
000001 
036500 
177776 
176750 
017110 
000000 
000200 



000250 
002116 
177772 
177756 
036536 
000200 

020070 



013701 036376 
010102 

052702 100000 

020102 

001406 

004737 020070 



036500 
036502 



036536 



HOV f141010«T30PK3 

NOV f1,T30RB 

NOV fT30PK3.R4 

189$: NOV R4,TS0B(R5) 

NOV #65000., T30DLY 

190$: JSR PCUAITF 

NOV TSSR(R5>.R1 

BIT fSSR.RI 

BNE 191$ 

DELAY 250 



DEC 


T30DLV 


BNE 


190$ 


191$: NOV 


ffSSR,R2 


CNP 


R1 .R2 


BEQ 


192$ 


JSR 


PCFATCHK 


ERRHRD 


ERRNO,T30SKH«PKTSSR 



:L005> IF SELECTED 



.WORD 210 

.W0P.0 WRTNS6 

.WORD SFINS6 

TRAP CSCLPI 



;SKIP TAPE NARK.ACK.CVC«1 CONNAND 
:SET UP NUNBER TO SKIP 
:SET UP R4 WITH PACKET ADDRESS 
; ISSUE CONNAND 
;SET UP DELAY COUNTER 
;UAIT FOR SSR TO SET 
;PICK UP TSSR 
;IS SSR SET YET 
;BR, IF SSR IS SET 
:CALL DELAY ROUTINE 



NOV 

.WORD 

NOV 

.yORD 

DEC 



DEC 
BNE 



#250. (PC)* 
0 

L$DLY.(PC)» 
0 

-6<PC) 
.-4 

-22 (PC) 
.-20 



:BUNP DELAY ROUTINE 
;BR. IF NORE DELAY TO 60 
.-SET UP EXPECTED (SSR ONLY) 
:UAS STATUS 600D 
:BR, IF TERNINATION WAS GOOD 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR NOT CORRECT AFTER SKIP TAPE N. 



192$: CKLOOP 



.•LOOP IF SELECTED 



TRAP 
.VORD 
.WORD 
.WORD 



CSERHRD 
211 

T30SKN 
PKTSSR 



TRAP C$CLP1 



;GET EXTENDED STATUS REGISTER ZERO (XSTO) FRON NESSAGE BUFFER 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 



T308FR*6.R1 

R1.R2 

#BIT1S,R2 

R1.R2 

195$ 

PC.FATCHK 



ERRHRD ERRWO.T30TNK.EXPREC 



;PICK UP XSTO 

iSET UP EXPECTED 

:SET TNK BIT IN EXPECTED 

;DOES EXP s REC*D 

;BR. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.TNK NOT SET AFTER WRT TAPE NARK 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 
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SEQ 129 



033406 
033410 
033412 
033414 

4914 0334.6 
033416 

491 5 033420 

4916 033424 

4917 033430 
4918 

4919 
4920 
4921 
4922 
4923 
4924 

4925 033436 

4926 033444 

4927 033450 

4928 033456 

4929 033462 

4930 033466 

4931 033472 

4932 033476 

4933 033500 

4934 033502 

4938 033506 
033506 
033510 
033512 
033514 

4939 033516 
033516 

4940 033520 

4941 033524 

4942 033530 

4943 033532 

4944 033534 

4948 033540 
033540 
033542 
033544 
033546 

4949 033550 
033550 

4950 033552 

4951 033556 

4952 033562 

4953 033564 

4954 033566 

4958 033572 
033572 
033574 
033576 
033600 

4959 033602 
033602 



104456 
000324 
040374 
016334 

104406 
012700 
004737 
013737 



012737 
012704 
012737 
010465 
004737 
016S01 
012702 
020102 
001406 
004737 

104456 
000325 
037273 
011670 

104406 
017701 
012702 
020102 
001006 
004737 

104456 
000326 
040750 
016334 

104406 
012702 
017701 
020201 
001406 
004737 

104456 
000327 
0>7122 
016334 

104406 



177777 
020362 
003072 



03650? 



195S: CKLOOP 

MOV 
JSR 
MOV 



#177777.R0 
PC.FIUMEM 
FREE.T30RB 



TRAP 
.WORD 
.WORD 
.WORD 

:L0OP IF SELECTED 

TRAP 

:VALUE TO WRUTEN TO MEMORY 
.•FILL MEM WITH ALL ONES 
.•STARTING READ BUFFER ADDRESS 



CtERHRD 

212 

T30TMK 

EXPREC 

CICLP1 



READ F0RUARD.ACK.CVC*1 COMMAND 



140001 
036500 
003720 
177776 
017110 
000000 
000200 



020070 



036500 
036506 



147346 
177777 



020070 



001001 
147310 



020070 



MOV 


#140001 .T30PK3 


;READ F0RVARD.ACK.CVC«1 COMMAND 


MOV 


fT30PK3.R4 


;SET UP R4 WITH PACKET ADDRESS 


MOV 


«2000..T30SZ 


;SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDB(R5) 


; ISSUE COMMAND 


JSR 


PC.UAITF 


;UAIT FOR SSR TO SET 


MOV 


TSSR(RS).R1 


;6ET TSSR CONTENTS 


MOV 


«SSR.R2 


;SET UP EXPECTED 


CMP 


R1.R2 


:ARE THEY EQUAL 


BEQ 


200S 


:BR. IF OK 


JSR 


PC.FATCHK 


;INC AND CHECK FOR MORE THAN 25 ERRORS 


ERRHRD 


ERRNO,T30RDF,PKTSSR 


:TbSR INCORRECT AFTER WRITE DATA 



200S: CKLOOP 

MOV 
MOV 
CMP 
BNE 

JSR 

ERRHRD 



220S: CKLOOP 

MOV 
MOV 
CMP 
BEO 
JSR 

ERRHRD 



228S: CKLOOP 



BFREE.RI 
#1 77777. R2 
R1.R2 
220S 

PC.FATCHK 

ERRNO.T30DTR.EXPREC 



f1001.R2 
SFREE.RI 
R2.R1 
228S 

PC.FATCHK 

ERRN0.T30PTB.EXPREC 



TRAP CSERHRD 
.UORD 213 
.UORD T30RDF 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP CfCLPI 

.•FIRST LOC IN READ BUFFER 

;EXPECTED IF NO DATA TRANS. 

:DID ANY DATA GET TRANSFERRED 

;BR. IF NO DATA TRANS (GOOD) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•DATA TRANSFERRED ON READ TAPE NARK 

TRAP CSERHRD 
.WORD 214 
.WORD T30DTR 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CSCLP1 
:SET UP RECORD NUNBER EXPECTED (FILE 2) 
.•GET INFO FROM BUFFER 
;ARE THEY EQUAL 
;BR. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
:RECORD POSITION WAS NOT CORRECT 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

215 

T30PTB 
EXPREC 



010424 



000000 
020070 



CZTUZAO TU80 FRONT END PRT 0 
TEST 2: SKIP TAPE NARKS 

4960 

4962 
4963 
4964 
4965 
4966 

4967 033604 004737 

4968 033610 103411 

4969 033612 010004 

4970 033614 016501 

4971 033620 004737 

4975 033624 
033624 104456 
033626 000330 
033630 040120 
033632 011670 

4976 033634 
033634 104406 

4977 
4978 
4979 
4980 
4981 
4982 
4983 

4984 033636 013701 036376 

4985 033642 010102 

4986 033644 052702 000002 

4987 033650 020102 

4988 033652 001406 

4989 033654 004737 020070 

4993 033660 
033660 104456 
033662 000331 
033664 037721 
033666 016334 

4994 033670 
033670 104406 

4995 033672 005723 

4996 033674 011301 

4997 033676 020127 177777 

4998 033702 001402 

4999 033704 000137 033172 

5000 033710 
033710 104406 

5001 033712 
033712 

033712 104403 



N 10 
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SEO 130 



.•ISSUE A REWIND TO TAPE DRIVE AND UAIT FOR SSR TO SET 



JSR 
BCS 
MOV 
MOV 
JSR 

ERRHRD 



230»: CKLOOP 



PC, REWIND 

230S 

R0,R4 

TSSR(R5),R1 
PC.FATCNK 

ERRNO,T30RUN.PKTSSR 



.-CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
:SAVE PACKET ADDRESS 
:GET TSSR STATUS 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
: REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
216 
T30RWN 
PKTSSR 



TRAP CtCLPI 



:GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



240S: CKLOOP 

TST 
MOV 
CMP 
BEQ 
JMP 

330$: CKLOOP 



T30BFR*6.R1 

R1.R2 

«BIT1,R2 

R1,R2 

240$ 

PC.FATCNK 

ERRN0.T3060T.EXPREC 



;PiCK UP XSTO 

.-SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP s reCD 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.-TAPE NOT AT BOT AFTER REWIND 

TRAP 



.•LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



CSERHRD 
217 
T'OBOT 
EXPREC 



(R3)« 
(R3).R1 
R1 -#177777 
330$ 
182$ 



TRAP C$CLP1 



ENDSUB 



:POINT TO NEXT POSITION 
:GET NEXT COMMAND ETC. 
;END OF TABLE MARKER 
;BR. IF AT END OF TABLE 
;JUMP TO MORE COMMANDS TO DO 
:LOOP IF SELECTED 

TRAP C$CLP1 
;««<««« END SUBTEST »»>»»» 
LI 0044: 

TRAP C$ESUB 



B I I 



CZTUZAO TU80 FRONT END PRT 0 
TEST 2: SKIP TAPE PMRKS 



S003 
S004 
500S 
S006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
50U 
5015 

5016 033714 
0337U 
0337U 

5017 033716 

5018 033722 

5019 033726 

5020 033732 

5021 033736 

5022 033744 

5023 033750 

5024 033752 
033752 
033756 
033760 
033764 
033766 
033772 
033774 
034000 

5025 034002 

5026 034006 

5027 034010 

5031 034014 

5032 034016 
034016 
034020 
034022 
034024 

5033 034026 
5034 

5035 034026 

5036 

5037 

5038 

5039 

504C 

5041 

5042 

5043 034032 

5044 054036 

5045 034040 

5049 024044 

5050 034046 
054046 



104402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 

01272' 



013727 
000000 
005367 
001375 
005367 
001367 
005337 
001 356 
004737 
010001 

104455 
000332 
003550 
011656 
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TEST 2. SUBTEST 2 



SEa 131 



VERIFIES THAT SKIP TAPE HARKS COMMANDS WITH A TAPE 
HARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
OP 2,3.8,64,256, AND 512 ARE TESTED. THE 
TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1 



041132 
036534 
041224 
041266 
176750 
016634 



000250 
002116 
177772 
177756 
036536 
020070 



036536 



10S: 



B6NSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T30REST 

T30FCN 

PC.T30RT2 

PC.T30RT3 

#65000.. TSODLY 

PC.SOFINIT 

20t 

250 



;»»»»»» BEGIN SUBTEST »»»»»» 
T2.2: 

TRAP CS6SUB 

:SET COMMAND PACKET 
; CLEAR FILE COUNTER 
:SET UP OTHER COMMAND PACKET 
.-SET UP OTHER COMMAND PACKET 
;SET UP DELAY COUNTER 
:D0 INITIALIZE ON CONTROLLER 
;BR IF INIT MAS OK 
.•DELAY ROUTINE CALL 



DEC 
BNE 
JSR 
MOV 
ERRDF 



T30DLV 
10$ 

PC«FATCHX 
RO.m 

ERRNO.SFIERR.SFINSG 



MOV 

.UORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



f250,(PC>« 
0 

L$DLV.(PC)* 

C 

-6<PC) 
.-4 

-22(PC) 
.-20 



20$: 



012704 036350 



MOV #TS0PACRET.R4 



.-BUMP COUNTER 

:8R, IF MORE COUNTING TO DO 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 218 
.WORD SF lERR 
.WORD SFIMS6 



.•SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE MITE CHARACTERISTICS COMMAND 



004737 010522 
103407 

004737 020070 
010001 

104456 



JSR PC.URTCKR 

BCS 23$ 

JSR PC.FATCHK 

MOV RO.RI 

ERRHRD ERRN0.WRTMS6.SFIMS6 



: ISSUE WRITE CHARACTERISTICS 
:BR. IF COMMAND ISSUED OK 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.-SAVE CONTENTS OF TSSR 
:WRITE CHARACTERISTISC FAILED 
IRAP CltfiHRD 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE HARKS 



C 11 
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SEQ 132 



0340S0 
0340S2 
034054 
SCSI 034056 
0340S6 

S0S2 
5053 
5054 
5055 
5056 
5057 
5058 

5CS9 034060 

5060 034064 

5061 034066 

5062 034070 

5063 034074 

5067 034100 
034100 
034102 
034104 
034106 

5068 034110 
034110 

S069 
5070 
5071 
5072 
5073 
5074 
5075 

5076 034112 

5077 034116 

5078 034120 

5079 034124 

5080 034126 

5081 034130 

5085 034134 
034134 
034136 
034140 
034142 

5086 034144 
034144 

5087 034146 

5088 034154 

5089 034160 

5090 034166 
5091 

5092 
5093 
5094 
5095 
5096 
5097 

5098 034174 

5099 034202 



000333 
004754 
011656 

104406 



004737 
103411 
010004 
016501 
004737 

104456 
000334 
040120 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000335 
037721 
016334 

104406 
012737 
0127C3 
013737 
012737 



012737 
012704 



23S: CKLOOP 



:loop if selected 



.WORD 
.WORD 
.WORD 

TRAP 



219 

URTHSC 
SFinSG 

CSCLPl 



ISSUE A REMIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



010424 



000000 
020070 



30S: 



JSR 
BCS 
NOV 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC.REWINO 

30S 

R0,R4 

TSSR(R5),R1 
PC.FATCHK 

ERRNO.T30RWN,PKTSSR 



;CALL TAPE REWIND COWAND 
;BR. IF NO PROBLEM 
;6ET PACKET ADDRESS 
;6^T STATUS REGISTER 
;INC AND CHECK FOR FWRE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 

220 

T30RWN 
PKTSSR 



TRAP CICLPI 



GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM KSSAGE BUFFER 



036376 
000002 

020070 



000001 036534 
000001 

003072 036502 

000024 036506 



40S: 



64$: 
65$: 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



T306FR«6,R1 

R1.R2 

iBIT1.R2 

R1,R2 

40S 

PCJATCHK 

ERRNO.T30BOT.EXPREC 



NOV 
NOV 
NOV 
NOV 



fl.,T30FCN 
fUR3 
FREE.t30W6 
f20..T30SZ 



.•PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP > REC*D 

:BR« IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 221 
.WORD T30BOT 
.WORD EXPR^C 

:LOOP IF SELECTED 

TRAP CSCLPl 
;SET 'TILE" COUNTER AT i DECIMAL 
;ONE RECORD PER 'TILE" 
;SET UP PACKETS'S WRITE BUFFER 
.SET RECORD SIZE AT 2000 BYTES 



WRITE DATA.ACr.CVCsl COMMAND 



140005 036500 
036500 



NOV f14000S.T30PK3 
NOV fT30FKS.R4 



.•WRITE 0ATA.ACK.CVC=1 COMMAND 
:SFT UP R4 WITH PACKET ADDRESS 



CZIUZAO TU80 FRONT END PRT D 
TESi 2; SKIP TAPE NARKS 



0 11 
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SEQ 153 



SI 00 034206 

5101 034212 

5102 0342U 

5103 034216 

5104 034220 

5105 034224 

5106 034230 

5107 034234 

5108 034240 

5109 034244 

5110 034246 

5111 0342S0 
5115 

5116 
5117 

5118 034254 
034254 
034256 
C34260 
034262 

5119 034264 
034264 

5120 034266 

5121 034270 

5122 034274 
5123 

5124 
5125 
SI 26 
5127 
5128 
5129 

5130 034276 

5131 034304 

5132 034310 

5133 034314 

5134 034320 

5135 034324 

5136 034330 

5137 034332 

5138 034334 

5142 034340 
034340 
034342 
034344 
034346 

5143 0343SO 
034350 

5144 034352 

5145 034SS6 

5146 034364 
5147 

5148 
5149 
5150 
5151 
SI 52 



013702 
000302 
01C301 
060201 
01017' 
010465 
004737 
016501 
01^702 
020102 
001406 
004737 



104457 
000336 
037050 
011670 

104406 
005203 
020327 
001331 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000337 
040242 
011670 

104406 
005237 
023727 
001273 



036534 



146646 
1777^6 
017110 
000000 
000200 



020070 



NOV 

SWAB 

NOV 

ADD 

NOV 

NOV 

JSR 

NOV 

NOV 

CNR 

BEO 

JSR 



T30FCN,R2 
R2 

R3.R1 

R?.R1 

Rl.rifREE 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5},R1 

ffSSR,R2 

R1.R2 

701 

PC.FATCHK 



ERRSOFT ERRN0.T30U0D.PKTSSR 



;6ET FILE COUNTER 

;HOVE TO UPPER BYTE 

:6ET RECORD COUNTER 

;FILE COUNTER IN UPPER, RECORD # LOV 

;NOV TO OUT PUT BUFFER 

.•ISSUE CONFUND 

;U;.IT FOR SSR TO SET 

:6ET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEY EQUAL 

;BR* IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
:SOFT ERROR, DON'T CARE ABOUT yRITE 
;COFffU»lD*S RESULTS - CHECKING SKIP 
;TAPE NARK COHNAND 
:TSSR INCORRECT AFTER WRITE DATA 



70S: 



000021 



CKLOOP 

INC 
CMP 



TRAP 
.yORD 
.WORD 
.WORD 



R3 

R3.f21 
6SS 



.•LOOP IF SELECTED 

TRAP 

.•COUNT THE RECORD COUNTER DOWN 
;AT 20 YET 
;BR, IF NOT AT 20 RECORDS WRITTEN 



CSERSOFT 

222 

T30WDD 
PK^SSR 



C4CLP1 



WRITE TAPE NARK.ACK.CVCsl CONNAND 



141011 036500 

036500 

177776 

017110 

000000 

000200 



020070 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHRD 



160S: CKLOOP 



f 141011. t30PK3 

fT30PK3.R4 

R4.TSDB(R5} 

PC.WAITF 

T$SR(R5).R1 

fSSR.R2 

R1.R2 

160$ 

PC.FATCHK 

ERRNO.T30WDC.PKTSSR 



036534 

036534 000031 



INC T30FCN 
CNP T30FCN.f25. 
BNE 64$ 



.•WRITE TAPE HARK.ACK.CVCsl CONNAND 
.SET UP R4 WITH PACKET ADDRESS 
.•ISSUE CONNAND 
.•WAIT FOR SSR TO SET 
:PICK UP TSSR 

.•SET UP EXPECTED (SSR ONLY) 

;WAS STATUS GOOD 

:BR. IF TERNINATION WAS GOOD 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:TSSR NOT CORRECT AFTER WRT TAPE N. 

TRAP C$ERHRD 
.WORD 223 
.WORD T30WDC 
.WORD PKTSSR 

;LOOP IF SELECTED ^ . 

TRAP C$CLP1 

.•COUNT THE *tlLE" COUNTER DOWN 

.•WRITE 25 FILES TO TAPE 

;BR. IF NOT AT 25 FILES WRITTEN 



WRITE TAPE NARK.ACK.CVC-1 CONNAND 



E 11 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 
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5153 

5154 034366 

5155 034374 

5156 034400 

5157 034404 

5158 034410 

5159 034414 

5160 034420 

5161 034422 

5162 034424 

5166 034430 
034430 
034432 
034434 
034436 

5167 034440 
034440 

5168 
5169 
5170 
5171 
5172 
5173 
5174 

5175 034442 

5176 034446 

5177 034450 

5178 034452 

5179 034456 

5183 034462 
034462 
034464 
034466 
034470 

5184 034472 
034472 

5185 
5186 
5187 
5188 
5189 
5190 
5191 

5192 034474 

5193 034500 

5194 034502 

5195 034506 

5196 0S4510 

5197 034512 

5201 034516 
034516 
034520 
034522 
034524 

5202 034526 
034526 

5203 034530 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000340 
040242 
011670 

104406 



004737 
103411 
010004 
016501 
004737 

104456 
000341 
040120 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000342 
037721 
016S34 

104406 
012737 



141011 
036500 
177776 
017110 
000000 
000200 



020070 



036500 



fN)V 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRNRD 



165$: CKLOOP 



f 14101 1.T30PK3 

#T30PK3.R4 

R«.TSOB(RS) 

PC.ttAITF 

TSSR(R5).R1 

ffSSR,R2 

R1.R2 

165$ 

PCFATCHK 

ERRN0,T30U0C«PKTSSR 



.-URITE TAPE HARK.ACK,CVC*1 CONNANO 
.-SET UP R4 WITH PACKET ADDRESS 
; ISSUE CONNAND 
:WAIT FOR SSR TO SET 
;PICK UP TSSR 

;SET UP EXPECTED (SSR ONLY) 

;IIAS STATUS 600D 

;BR, IF TERNIHATION WAS GOOD 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TSSR NOT CORRECT AFTER URT TAPE N. 

TRAP CtERHRD 

.WORD 

.UORD 

.WORD 

.-LOOP IF SELECTED 

TRAP 



224 
T30WDC 
PKTSSR 



CSCLPI 



: ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



010424 



000000 
020070 



JSR 
BCS 
NOV 
NOV 
JSN 
ERRNRD 



170$: CKLOOP 



PC.REWIND 

170$ 

RO.M 

TSSR(RS).II1 
PCfATCHK 

EMINO.TSOmW.PKTSSR 



:CALL TAPE REWIND CONNAND 
;BR. IF NO PROBLEN 
;GET PACKET ADDRESS 
;GET STATUS REGISTER 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
.'REWIND NOT ACCEPTED 



.'LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERH^D 
225 

T30RWN 
PKTSSR 



TRAP CSCLPI 



.'GET EXTENDED STATUS REGISTER ZERO (XSTO) FRON NESSAGE BUFFER 



036376 
000002 

020070 



180$: 



000002 036534 



NOV T30Bfll^6.R1 

NOV R1 .R2 

BIS fBIT1.R2 

CNP R1.R2 

BEQ 180$ 

JSR PC.FATCHK 

ERRHRD ERRNO.T306OT.EXPREC 



CKLOOP 

NOV f2.T30FtN 



.PICK UP XSTO 

:SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

:DOES EXP s REC'D 

*BR IF EQUAL (OK) 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
.'TAPE NOT Al BOT AFTER REWIND 

TRAP 



.'LOOP IF SELECTED 
■SgT TO NUNBER OF 



.WORD 
.WORD 
.WORD 

TRAP 
SKIP "flLES" 



CSERHRO 
226 
T30B0T 
EXPREC 

C$CLP1 



CZTUZAO TU80 FRONT END PRT 0 
TEST 2: SKIP TAPE MARKS 



520A 03A536 

5205 

S206 

5207 0MS46 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 034552 

5216 034556 

5217 034560 

5221 034564 

5222 034566 
034566 
034570 
034572 
034574 

5223 034576 
034576 

5224 
5225 
5226 
5227 
5228 
S229 
5230 

5231 034600 

5232 034606 

5233 034614 

5234 034620 

5235 034624 

5236 034632 

5237 034636 
523t 034642 

5239 034646 

5240 034650 
034650 
034654 
034656 
034662 
034664 
034670 
034672 
034676 

5241 034700 

5242 034704 

5243 034706 
52U 034712 

5245 034714 

5246 034716 
5250 034722 

034722 
034724 
034726 



012703 036516 

011337 036366 

012704 036350 



F 11 
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MOV ffT30llfV,R3 

1828: flOV (R3).T30ETN 

NOV ffTlOPACKET,R4 



SEQ 135 



;SET UP POINTER TO COMMAND TABLE 

;6ET NEXT COMMAND 

i SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE WRITE CHARACTERISTICS COMMAND 



004737 010322 
103407 

004737 020070 
010001 

104456 
000343 
004754 
01 1656 

104406 



JSR 
BCS 
JSR 
MOV 
ERRHRD 



188$; CKLOOP 



PCWRTCHR 
188$ 

PCFATCHK 
RO.RI 

ERRN0.URTNSG*SfINS6 



; ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.SAVE CONTENTS OF TSSR 

.-WRITE CHARACTER! ST ISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



C$ERHRD 
227 

WRTMS6 
SFIMS6 



C$CLP1 



;SKIP TAPE MARK.ACK«CVC«1 COMMAND 



012737 
013737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
004737 

104456 
000344 
036774 



141010 036500 
036534 036502 
036500 
177776 

176750 036536 
017110 
000000 
000200 



000250 
002116 
177772 
177756 
036536 
000200 



189$: 
190$: 



NOV 
NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
BIT 
BNE 
DELAY 



#141010.T30PK3 

T30FCN,T30R8 

«T30PKS,R4 

R4,TS06<R5) 

#65000.. T30DLY 

PC.WAITF 

TSSR(RS)«R1 

fSSR.m 

191$ 

2S0 



;SKIP TAPE HARK.ACK.CVCsl COMMAND 
;SET UP NUMBER TO SKIP 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE CONNAND 
;SET UP DELAY COUNTER 
;WAIT FOR SSR TO SET 
;PICK UP TSSR 
;1S SSR SET YET 
;BR. IF SSR IS SET 
;CALL DELAY ROUTINE 



191$: 



020070 



DEC 
BNE 
NOV 
CMP 
BEQ 
JSR 

ERRHRD 



T30DLY 

190$ 

ffSSR.R2 

R1.R2 

192$ 

PC.FATCHK 

ERRN0.T30SKN,PKTSSR 



MOV 
.WORD 
MOV 
.WORD 

DEC 
BNE 
DEC 
BNE 



#250. (PC) ♦ 
0 

L$DLY.(PC)» 

0 

-6(PC) 
.-4 

-22 (PC) 
.-20 



:BUNP DELAY ROUTINE 

;BR. IF NORE DELAY TO 60 

:SET UP EXPECTED (SSR ONLY) 

;WAS STATUS GOOD 

;BR. IF TERNINATION WAS GOOD 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TSSR NOT CORRECT AFTER SKIP TAPE M. 

TRAP C$ERHRD 
.WORD 228 

Mm imw 



CZTUZAO TUaO FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 



034730 
S2S1 034732 
034732 

52S2 
5253 
5254 
5255 
5256 
5257 
5258 

5259 034734 

5260 034740 

5261 034742 

5262 034746 

5263 034750 

5264 034752 

5268 034756 
034756 
034760 
034762 
034764 

5269 034766 
034766 

5270 034770 

5271 034774 

5272 035000 
5273 

5274 
5275 
5276 
5277 
5278 
5279 

5280 035006 

5281 03S014 

5282 035020 

5283 035026 

5284 035032 

5285 03S0S6 

5286 035042 

5287 035046 

5288 035050 

5289 035052 

5293 035056 
035056 
035060 
035062 
035064 

5294 035066 
035066 

5295 035070 

5296 035074 

5297 035100 

5298 035102 

5299 035104 
5303 035110 

035110 



011670 
104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000345 
040374 
016334 

104406 
012700 
004737 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000346 
037273 
011670 

104406 
017701 
012702 
020102 
001006 
004737 

104456 



6 11 

HACRO HI 200 29-fMR-83 13:43 PAGE 85-5 



192S: CKLOOP 



SEO 136 



:LOOP IF SELECTED 



.UORO PKTSSR 
TRAP CSCLP1 



;6ET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 



036376 
100000 

020070 



NOV 
NOV 
8IS 
CHP 
BEQ 
JSR 

ERRHRD 



195S: CKLOOP 



T308FR46,R1 

R1.R2 

fBIT15,R2 

R1.R2 

195$ 

PCFATCHK 

ERRN0.T30TMK,EXPREC 



177777 
020362 

003072 036502 



NOV 
JSIt 
NOV 



•177777.R0 
PC.FILLNEN 
FREE.TSOW 



:REAO FOMMRD.ACK.CVCsl CONNANO 



140001 036500 
036500 

000024 036506 

177776 

017110 

000000 

000200 



020070 



145776 
177777 



020070 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CHP 
BEQ 
JSR 
ERRHRD 



200$: CKLOOP 

NOV 
NOV 
CNP 
BNE 

JSR 

ERRHRD 



#140001. T30PK3 

fT30PK3.R4 

f20..T30SZ 

R4,TS06(R5) 

PC.WAITF 

T$SR(R5).R1 

fSSR.R2 

R1.R2 

206$ 

PC.FATCHK 

ERRII0.T30RDF«PKTSSR 



8FREE.R1 
#1 77777. R2 
R1.R2 
220$ 

PC.FATCHK 

ERRN0.T30DTR.EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET TNK BIT IN EXPECTED 

.DOES EXP * REC'D 

:BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
:TNK NOT SET AFTER WRT TAPE HARK 



TRAP 
.yORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 

.•VALUE TO HRITTEN TO HEHORV 
:FILL HEH UITH ALL ONES 
.'STARTING READ BUFFER ADDRESS 



CSERHRD 
229 
T30THK 
EXPREC 

C$CLP1 



.'READ FORVARD.ACK.CVC-I CQHHAND 
:SET I? R4 VI TH PACKET ADDRESS 
.-SET UP RECORD SIZE IN PACKET 
: ISSUE COHHAND 
:WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
;SET UP EXPECTED 
:ARE THEY EQUAL 
:BR. IF OK 

;INC AND CHECK FOR HORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERHRD 
.UORD 230 
.WORD T30RDF 
.WORD PKfSSR 

;LOOP IF SELECTED 

TRAP CtCLPI 
;FIRST LOC IN READ BUFFER 
; EXPECTED IF NO DATA TRANS. 
:DID ANY DATA GET TRANSFERRED 
;BR. IF NO DATA TRANS (GOOD) 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;DATA TRANSFERRED ON READ TAPE NARK 



CZTU2A0 TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 
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SEO 137 



035112 
035114 
035116 

5304 035120 
035120 

5305 035122 

5306 035126 

5307 035130 

5308 035132 

5309 035136 

5310 035142 

5311 035144 

5312 035146 

5316 035152 
035152 
035154 
035156 
035160 

5317 035162 
035162 

5318 
5319 
5320 
5321 
5322 
5323 
5324 

5325 035164 

5326 035170 

5327 035172 

5328 035174 

5329 035200 

5333 035204 
035204 
035206 
035210 
035212 

5334 035214 
035214 

5335 
5336 
5337 
5338 
5339 
5340 
5341 

5542 035216 

5343 035222 

5344 035224 

5345 035230 

5346 035232 

5347 035234 
5351 035240 

035240 
035242 
035244 
035246 



000347 
040750 
016334 

104406 
013702 
005202 
000302 
052702 
017701 
020201 
001406 
004737 

104456 
000350 
037122 
016334 

104406 



004737 
103411 
010004 
016501 
004737 

104456 
000351 
040120 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004757 

104456 
000352 
037721 
016334 



.WORD 
.WORD 
.WORD 



231 

T30DTR 





220S: CKLOOP 




;L00P IF SELECTED 


036534 




T30FCN.R2 


TRAP CSCl PI 


mv 


.GET NUNBER OF SKIPS 




INC 


R2 


;SET TO CORRECT FILE VALUE 




SWAB 


R2 


;SWAP BYTE HALVES 


000001 


BIS 


fBIT0,R2 


;SET FOR RECORD #1 


145730 


HOV 


BFREE.RI 


.-GET INFO FROM BUfFER 




CNP 


R2.R1 
228t 


;ARE THEY EQUAL 




BEQ 


;8R. IF EQUAL (OK) 


020070 


JSR 


PC«FATCHK 


;INC AND CHECK FOR NORE THAN 25 ERRORS 




ERRHRi) 


fcRRNO.T30PTB.EXPREC 


.•RECORD POSITION WAS NOT CORRECT 



228S: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 

232 

T30PT8 
EXPREC 



TRAP CSCLPI 



.-ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



010424 



000000 
020070 



iSR 
BCS 
MOV 
NOV 
JSR 

ERRHRD 



2308: CKLOOP 



PC. REWIND 

230t 

R0.R4 

TSSR(R5).R1 
PC.FATCHK 

ERRNO,T30RWN.PKTSSR 



;CAIL TAPE REWIND CONMAND 
;BR. IF NO PROBLEM 
:SAVE PACKET ADDRESS 
.GET TSSR STATUS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



••LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CSERHRD 
233 
T30RWN 
PKTSSR 

CtCLPI 



;8CT EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 



036376 
000002 

020070 



MOV T306FR»6.R1 

NOV R1 .R2 

BIS ffBIT1.R2 

CNP R1.R2 

BEQ 2408 

JSR PC.FATCHK 

ERRHRD ERRNO.T30BOT .EXPREC 



;PICK UP XSTO 

; SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

.•DOES EXP « REC*D 

;BR. IF EQUAL (OK) 

:1NC AND CHECK FOR NORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REWIND 

TRAP CKRHRD 
.WORD 234 
.WORD T30B0T 
JfiBft EIPBEC 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE HARKS 
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5552 



035250 
035250 

5353 035252 

5354 035254 

5355 035256 

5356 035262 

5357 035264 

5358 035270 

5359 03S272 

5360 03S274 

5361 03SS0O 
SS6? 035304 

035304 
S363 035306 
035306 
035306 



104406 
005723 
011301 

020127 177777 
001410 

013701 036534 

000241 

006101 

010137 036534 
000137 034542 

1044G6 



104403 



240S: CKLOOP 



330S: 



(R3)* 
(•3),R1 
R1. #177777 
336t 

T30FCN,R1 



TST 
HOV 
CMP 
BEQ 
HOV 
CLC 
ROL R1 
NOV R1,T30FCN 
JNP 182t 
CKLOOP 

ENDSUB 



;LOOP If SELECTED 

TRAP CICLP1 

:POINT TO NEKT POSITION 
;6ET NEXT COfVIAND ETC. 
;END OF TABLE MARKER 
:BR, IF AT END OF TABLE 
;6ET NUMBER OF SKIPS 
; CLEAR TNE CARRY BIT 
:PUSN OVER ONE POSITION 
;PUT BACK IN COUNTER 
:JUffP TO FIORE COFWANDS TO DO 
;LOOP IF SELCCTED 

TRAP CSCLP1 
;««««<« END SUBTEST »»»»»> 
L1004S: 

TRAP CtESUB 



J n 



CZTUZAO TU80 FRCMT END PRT D 
TEST 2: SKIP TAPE NARKS 



S36S 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5575 
5376 
5377 
5378 
5379 
5380 
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TEST 2. SUBTEST 3 



SEO 139 



035310 
03S310 
035510 
5381 055512 
5582 055516 
5585 055522 

5584 055526 

5585 055552 

5586 05S540 

5587 05S544 

5588 055546 
055546 
055552 
055554 
055560 
055562 
055566 
055570 
055574 

5589 055576 

5590 055402 

5591 055404 

5595 055410 

5596 055412 
05S412 
055414 
055416 
055420 

5397 055422 
5598 

5599 055422 

5403 

5401 

5402 

5403 

5404 

5405 

5406 

5407 055426 

5408 055452 

5409 055454 
5415 055440 



VERIFIES THAT A SKIP TAPE NARKS REVERSE COfWAND 
ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 
FUNCTION REJECT TERNINATION. WITH THE NON-EXECUTABLE 
FUNCTION (NEF) ERROR BIT SET. 



104402 

004737 041152 
005057 056554 
004757 041224 
004757 041266 
012757 176750 
004757 016654 
105426 

012727 000250 
000000 

015727 002116 
000000 

005567 177772 
001575 

005567 1777S6 
001567 

005557 036556 
001556 

004757 020070 
010001 

104455 
000555 
005550 
011656 



012704 056550 



056556 



10S: 



BGNSUB 



JSR 
CLR 
JSR 
JSR 
NOV 
JSR 
BCS 
OELAV 



PC.T50REST 

T50FCN 

PC,T50RT2 

PC.T50RT5 

f 65000.. T50DLV 

PC.SOFINIT 

20t 

250 



:»»»»»» BEGIN SUBTEST »»»»»» 
T2.5: 

TRAP CtBSUS 

;SET CONNAND PACKET 
.•CLEAR FILE COUNTER 
.'SET UP OTHER COMMAND PACKET 
.-SET UP OTHER CONNAND PACKET 
:SET UP DELAY COUNTER 
:D0 INITIALIZE ON CONTROLLER 
:BR IF INIT WAS OK 
; DELAY ROUTINE CALL 



DEC 



JSR 
NOV 
ERROF 



T500Lt 
10S 

PC.FATCHK 
R0.R1 

ERRN0.SFIERR«SFINS6 



NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

Br;E 



#250.<PC)» 
0 

L$DLt.(PC)* 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



;BUNP COUNTER 
;BR. IF MORE COUNTING TO DO 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•CONTENTS OF TSSR REGISTER 
: FATAL ERROR TSSR WAS NOT OK 



20S: 



TRAP 
.WORD 
.WORD 
.WORD 



CSERi>F 
255 

SFIERR 
SF INSG 



NOV 



fT50PACKET.R4 



.•SUBROUTINE NEEDS PACKET ADDRESS 



.•ISSUE WRITE CHARACTERISTICS CONNAND 



004757 
105407 
004757 
010001 



010522 
020070 



JSR 
BCS 
JSR 
NOV 



PC.WRTCHR 
25i 

PC.FATCHK 
B0.R1 



.•ISSUE WRITE CHARACTERISTICS 

;BR. IF CONNAND ISSUED OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.•5AVI CQHTgNTS Of ISSH 



r 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 



S4U 035U2 
035442 
035444 
03S446 
035450 

5415 03S4S2 
035452 

5416 
i417 
5418 
5419 
5420 
5421 
5422 

5423 035454 

5424 035460 

5425 035462 

5426 035464 

5427 035470 

5431 035474 
035474 
035476 
03SS00 
035502 

5432 035504 
035504 

5433 
5434 
5435 
5436 
5437 
5438 
5439 

5440 035506 

5441 035512 

5442 035514 

5443 03SS20 

5444 035522 

5445 035524 

5449 035530 
035530 
035532 
03S5S4 
03S5S6 

5450 035540 
035540 

5451 035S42 
5452 

5453 
5454 
5455 
5456 
5457 
5458 

5459 035550 

5460 03SS56 

5461 055562 



104456 
000354 
004754 
011656 

104406 
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ERRHRD ERRN0,VRTNS6,SFINS6 



23$: 



CKLOOP 



;UR1TE CHARACTER! ST ISC FARED 

TRAP CdRHRD 

.WORD 236 

.WORD WRTNS6 

.WORD SF1NS6 

;L0OP IF SELECTED 

TRAP CSCLPI 



.'ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



004737 
103411 
010004 
016501 
004737 

104456 
000355 
040120 
011670 

104406 



010424 



000000 
020070 



30S: 



JSR 
BCS 
NOV 
NOV 

JSR 

ERRNRD 



CKLOOP 



PC.REWINO 

SOS 

R0«R4 

TSSR(R5),R1 
PC.FATCHK 

ERRNO.T30RWN,PKTSSR 



;CALL TAPE REWIND CONNAND 
:BR, IF NO PROBLEN 
;6ET PACKET ADDRESS 
;6ET STATUS REGISTER 
;INC AND CHECK FOR NORE THAN 25 
.•REWIND NOT ACCEPTED 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



ERRORS 

CSERHRD 
237 
T30RWN 
PKTSSR 



TRAP CSCLPI 



.-GET EXTENDED STATUS REGISTER ZERO (XSTO) FRON MESSAGE BUFFER 



013701 


036376 


NOV 


T306FR«6.R1 


.'PICK UP XSTO 


010102 




NOV 


R1.R2 


:SET UP EXPECTED 


052702 


000002 


BIS 


fBIT1.R2 


••SET BOT BIT IN EXPECTED 


020102 




CNP 


R1.R2 


.•DOES EXP > REC*D 


001406 




BEQ 


401 


;BR. IF EQUAL (OK) 


004737 


020070 


JSR 


PC.FATCMK 


:INC AND CHECK FOR NORE THAN 25 






ERRNRD 


ERRNO.T30BOT.EMPREC 


:TAPE NOT AT BOT AFTER REWIND 



104456 
000356 
057721 
016354 

104406 
012757 



000001 036502 



40$: CKLOOP 

NOV f1.T50UB 



;LOOP IF SELECTED 
.•SET f OF TN TO SKIP 



TRAP 
.WORD 
.WORD 
.WORD 



ERRORS 

CSERHRD 
238 
T50BOT 
EXPREC 



TRAP CSCLPI 



;SKIP TAPE NARK REVERSE. ACK.CVC«1 CONNAND 



012757 
012704 
010465 



141410 
056500 
177776 



056500 



NOV 
NOV 
NOV 



f141410.T50PK5 
fT50PK5.R4 
R4,T?W(R?) 



.-SKIP TAPE NARK REVERSE. ACK.CVC-1 CND 
;SET UP R4 WITH PACKET ADDRESS 
■•ISSUE tMflMIP 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE NARKS 



5462 03S566 

5463 035S72 

5464 03S$76 

5465 035602 

5466 035604 

5467 035606 

5471 035612 
035612 
035614 
035616 
035620 

5472 035622 
035622 

5^73 
$474 
5475 
5476 
5477 
5478 
5479 

5480 035624 

5481 035630 

5482 03S632 

5483 035636 

5484 035640 

5485 035642 

5489 035646 
035646 
035650 
035652 
035654 

5490 035656 
035656 

5491 035660 
035660 
035660 



004737 
016501 
012702 
020102 
001406 
004737 

10'. 456 
000357 
036711 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000360 
040456 
016334 

104406 



104403 



017110 
000000 
100206 



020070 
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JSR PC.UAITF 

NOV TSSR(R5>,R1 

NOV ffSSR!SC!BIT1!BIT2,R2 

CNP Ri .R2 

BEQ 70S 

JSR PC.FATCHK 

ERRHRD ERRN0J30IBT,PKTSSR 



70$: CKLOOP 



WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 

INC AND CHECK FOR HORE THAN 25 ERRORS 
TSSR INCORRECT AFTER WRITE DATA 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CiERHRD 
239 
T30IBT 
PKTSSR 



TRAP CSCLP1 



:6ET EXTENDED STATUS REGISTER ZERO (XSTO) FROM NESSA6E BUFFER 



036376 
002000 

020070 



180$: 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 
ENDSUB 



T30BFR*6,R1 

R1.R2 

«BIT10,R2 

R1,R2 

180$ 

PC.FATCHK 

ERRNO,T30NEF«EXPREC 



:PJCK UP XSTO 

:SET UP EXPECTED 

:SET NEF BIT IN EXPECTED 

;DOES EXP » REC*0 

;BR« IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
;TaPE not at NEF 



;L0OP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
240 
T30NEF 
EXPREC 



TRAP C$CLP1 
;«««««< END SUBTEST »»»»»> 
Li 0046: 

TRAP CSESUB 



CZTUZAO TU80 FRONT END PRT D 
TEST 2: SKIP TAPE MARKS 

5493 

5494 

549S 

5496 

5497 

5498 . 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 035662 
035662 

035662 104402 

5510 035664 004737 041132 

5511 03S670 005037 036534 

5512 035674 004737 041224 

5513 035700 004737 041266 

5514 035704 012737 176750 

5515 035712 004737 016634 

5516 035716 103426 

5517 035720 

035720 012727 000250 
035724 000000 
035726 013727 002116 
035732 000000 
035734 005367 177772 
035740 001375 
035742 005367 177756 
035746 001367 

5518 035750 005337 036536 

5519 035754 001356 

5520 035756 004737 020070 

5524 035762 010001 

5525 035764 
035764 104455 
035766 000361 
035770 003550 
035772 011656 

5526 035774 
5527 

5528 035774 
5529 
5S30 
5531 
5532 
5533 
5534 
5535 

5SS6 036000 004737 010322 

5537 036004 103407 

5538 036006 004737 020070 
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TEST 2, SUBTEST 4 
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SEQ 142 



VERIFIES THAT A SKIP TAPE NARKS REVERSE COMMAND 
ISSUED WHILE THE TAPE IS POSITIONED JUST BEFORE THE 
FIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE 
STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 
(RIB) STATUS BIT SET. 



036536 



10$: 



B6NSUB 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



:»»»»»» BEGIN SUBTEST »»»»»» 



PCJ30REST 

T30FCN 

PC,T30RT2 

PC.T30RT3 

#65000., T30DLY 

PCSOFINIT 

20S 

250 



T2.4: 

TRAP 

:SET COMMAND PACKET 

.•CLEAR FILE COUNTER 

:SET UP OTHER COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

: SET UP DELAY COUNTER 

;D0 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

;DELAY ROUTINE CALL 

MOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 



CSBSUB 



DEC 
BNE 
JSR 
MOV 
ERRDF 



T30DLY 
10$ 

PCFATCHK 
RO R1 

ERRNO.SFIERR.SFINSG 



1250, (PC)« 
0 

LSDLY,(PC)« 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 



20$: 



012704 036350 



NOV fT30PACKET.R4 



:6UMP COUNTER 

;BR, IF MORE COUNT IllG TO DO 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 241 

.WORD SFIERR 

.WORD SFIMSG 



.•SUBROUTINE NEEDS PACKET ADDRESS 



.•ISSUE WRITE CHARACTERISTICS COMMAND 



JSR PC.WRTCHR 

BCS 23$ 

JSR PC.FATCMK 



: ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

flNC AND CHECK FOR MORE THAN 2S ERRORS 
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SEO <^ 



5542 036012 

5543 0360U 
036014 
036016 
036020 
036022 

5544 036024 
036024 

5545 
5546 
5547 
5548 
5549 
5550 
5551 

5552 036026 

5553 036032 

5554 036034 

5555 036036 

5556 036042 

5560 036046 
036046 
036050 
036052 
036054 

5561 036056 
036056 

5562 
5563 
5564 
5565 
5566 
5567 
5568 

5569 036060 

5570 036064 

5571 036066 

5572 036072 

5573 036074 

5574 036076 

5578 036102 
036102 
036104 
036106 
036110 

5579 036112 
036112 

5580 036114 

5581 036122 
5582 

5583 
5584 
5585 
5586 
5587 
5588 

5589 036130 



010001 

104456 
000362 
004754 
011656 

104406 



004737 
103411 
010004 
016501 
004737 

104456 
000363 
040120 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000364 
037721 
016334 

104406 
013737 
012737 



NOV R0.R1 

ERRHRD ERRN0.WRTMS6.SFIHS6 



23i: CKLOOP 



:SAVE CONTENTS OF TSSR 
;URITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
AlORD 

.-LOOP IF SELECTED 

TRAP 



CSERHRD 
242 

WRTNS6 
SFinSG 

CfCLPI 



.ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 



010424 



000000 
020070 



30$: 



JSR 

ecs 

MOV 
MOV 
JSR 

ERRHRD 



CKLOOP 



PC. REWIND 

30$ 

R0.R4 

TSSR(R5).R1 
PC.FATCHK 

ERRNO.T30RWN.PKTSSR 



:CALL TAPE REWIND CONNAND 
;BR. IF NO PROBLEM 
;6ET PACKET ADDRESS 
:GET STATUS REGISTER 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

243 

T30RWN 
PKTSSR 



TRAP CSCLPI 



;6ET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 



036376 




MOV 


T30BFR«6,R1 


;P1CK UP XSTO 


000002 




MOV 


R1.R2 


;SET UP EXPECTED 




BIS 


#BIT1.R2 


:SET BOT BIT IN EXPECTED 
:DOES EXP REC'D 






CMP 


R1.R2 


020070 




BEQ 


40$ 


;BR. IF EQUAL (OK) 




JSR 


PC.FATCHK 


;INC AND CHECK FOR MORE THAN 






ERRHRD 


ERRNO.T30B0T.EXPREC 


:TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 




40$: 


CKLOOP 




.•LOOP IF SELECTED 

TRAP 


003072 


036502 


NOV 


FREE.T30WB 


;SET UP GOOD WRITE BUFFER 


000400 


036506 


NOV 


«256..T30SZ 


;SET UP SIZE 



ERRORS 

CSERHRD 
244 

T30B0T 
EXPREC 

C$CLP1 



:WRITE OATA.ACK.CVCsl CORHAND 



012737 140005 036500 



NOV #1 40005. T30PK3 



.WRITE DATA.ACK.CVCS1 COMMAND 
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SEQ U4 



5590 036136 

5591 036U2 

5592 036U6 

5593 036152 

5594 036156 

5595 036162 

5596 036164 

5597 036166 
5601 

5602 
5603 

5604 036172 
036172 
036174 
036176 
036200 

5605 036202 
036202 

5606 
5607 
5608 
5609 
5610 
5611 
5612 

5613 036204 

5614 036212 

5615 036220 

5616 036224 

5617 036230 

5618 036234 

5619 036240 

5620 036244 

5621 036246 

5622 036250 

5626 0362S4 
036254 
036256 
036260 
036262 

5627 036264 
036264 

5628 
5629 
5630 
5631 
5632 
5633 
5634 

5635 036266 

5636 036272 
$637 036274 
$638 036^00 
$639 036J02 
5640 036304 
S644 036310 

036310 



012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000365 
037050 
011670 

104406 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000366 
036540 
011670 

104406 



036500 
177776 
017110 
000000 
000200 



020070 



MOV 

nov 

JSR 
NOV 

mv 

CUP 
BEQ 
JSR 



fT30PK3.R4 

R4.TSDB(RS) 

PC.UAITF 

T5SR(R5).R1 

fSSK,R2 

R1.R2 

70t 

PC.FATCHK 



ERRSOFT ERRN0.T30UDD.PKTSSR 



:SET UP R4 yiTH PACKET ADDRESS 

: ISSUE COMMAND 

.WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEV EQUAL 

:BR« IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:SOFT ERROR* DON'T CARE ABOUT WRITE 
.-COMMAND'S RESULTS - CHECKING SKIP 
;TAPE MARK COMMAND 
:TSSR INCORRECT AFTER WRITE DATA 



70S: CKLOOP 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERSOFT 
245 

T30WDD 
PKTSSR 



TRAP CSCLP1 



.'SKIP TAPE MARK REVERSE, ACK«CVC>1 COMMAND 



000001 
141410 
036500 
177776 
017110 
000000 
100204 



020070 



036502 
036500 



NOV 
MOV 
MOV 
NOV 
JSR 
NOV 
NOV 
CMP 
BEQ 
JSR 

ERRHRD 



160S: CKLOOP 



fl.TSOUB 

fUU10«T30PK3 

fT30KS.R4 

R4.TSD6(RS) 

PC.WAITF 

TSSR(R$).R1 

fSSR!BlT2!SC.R2 

R1.R2 

1608 

PC.FATCNK 

ERRII0,T30IBU.PKTSSR 



;# OF TM TO SKIP 

:SKIP TAPE HARK REVERSE.ACK.CVC»1 CMD 
;SET UP R4 WITH PACKET ADDRESS 
.•ISSUE COMMAND 
:WAIT FOR SSR TO SET 
.•PICK UP TSSR 

;SET UP EXPECTED (SSR rUD SC ONLY) 
;WAS STATUS GOOD 
:BR. IF TERMINATION WAS GOOD 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;TSSR NOT CORRECT AFTER WRT TAPE M. 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
246 
T50IBU 
PKTSSR 



TRAP CSCLPI 



•GET EXTENDED STATUS REGISTER ZERO (XST3) FROM MESSAGE BUFFER 



013701 036404 
010102 

OS2702 000001 

020102 

001406 

004737 020070 
104456 



NOV T30BFRn4.R1 

NOV R1 .R2 

BIS fBIT0.R2 

CNP R1.R2 

BEQ 170$ 

JSR PC.FATCHK 

ERRHRD ERRNO.T30R1B,EXPREC 



.♦PICK UP XST3 

:SET UP EXPECTED 

:SET RIB BIT IN EXPECTED 

;DOES EXP - REC'D 

;BR. IF EQUAL (OK) 

:1NC AND CHECK FOR MORE THAN ?5 ERRORS 
.•TAPE NOT AT RIB 

MAP CIEHMRO 
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036312 
0363U 
036316 

5645 036320 
036320 

5646 036322 
036322 
036322 

5647 
5648 
5649 

5650 036324 

5651 036330 

5652 036332 

5653 036336 
036336 
036340 



000367 
036625 
016334 

104406 



104403 



004737 017344 
103002 

000137 032352 

104432 
002750 



170S: 



CKLOOP 
ENOSUB 



: SUBTEST END 



400$: 



JSR 

sec 

JHP 
EXIT 



PC.TSTLOOP 
400S 
T30L00P 
TST 



SEQ US 



.WORD 247 

.yORD T30RIB 

.yORD EXPREC 

;LOOP IF SELECTED 

TRAP CSCLPt 
;<««««« END SUBTEST »»»»>» 
L10047: 

TRAP CSESUB 



DO UE NEED TO ITERATE TEST 
BR, IF NO LOOP REQUIRED 
EXECUTE AGAIN 
ALL DONE THIS TEST 

TRAP CtEXIT 
.WORD Lt0043-. 



1 
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S6SS 
S6S6 
5657 

5659 036342 
036350 
036350 

5663 036352 

5664 036354 

5665 136356 

5666 036360 

5667 036360 

5668 )36362 

5669 036364 

5670 036366 
036370 



5661 
5662 



567i 
5672 
5673 
5674 

5676 036452 
5f 78 036460 
5o79 036460 
'i680 036462 

5681 036464 

5682 036466 
5684 036470 

5686 036500 

5687 036500 

5688 036502 

5689 036502 

5690 036504 

5691 036506 
5692 

5693 

5694 036510 

5695 036510 

5696 036511 

5697 036512 

5698 036514 
5699 

5700 
5701 

5702 036516 

5703 036516 

5704 036516 

5705 036520 

5706 036522 

5707 036524 

5708 036526 
5709 

5710 036SS0 

5711 0S6SS2 

5712 036534 

5713 036536 



100004 
036360 
000000 
000012 

036370 
000000 
000024 
000000 



100006 
036510 
000000 
000006 



100205 

003072 
000000 
000000 



010 
200 
000000 
000000 



000000 
000100 
000200 
000300 
177777 

000000 
000000 
000000 
000000 
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i-LOCAL STORAGE FOR THIS TEST 



SEO 146 



.BLKB 
T30PACKET: 

.WORD 
.WORD 
.WORD 
.UORd 

T30DATA: 

.WORD 
.WORD 
.WORD 
T30ETM: .WORD 
T30BFR: .BLKU 



ir>-<.-TUV2Al7> 

100004 
T300ATA 

0 

10. 

T30BFR 
0 

20. 
0 

25. 



•WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-<.-TUV2A87> 



T30PK2: 

.WORD 
.WORD 
.WORD 
.WORD 
.BLKB 

TS0PK3: 

.WORD 

T30R8: 

T30WB: .WORD 
.WORD 

T30SZ: .WORD 
.EVEN 

T306F2: 
T308S0: .BYTE 
T30BS1: .BYTE 
T30S2: .WORD 
T30S3: .WORD 



100006 
T30BF2 
0 
6. 

10-<.-TUV2At7> 

100205 

FREE 

0 

0 



10 
200 
0 
0 



.EVEN 

.•TAPE MOTION PACKET COMMAND VALUES 

T30INV: 

TSORN: 

.WORD 000000 

.WORD 000100 

.WORD 000200 

.WORD 000300 

.WORD 177777 

■ 

T30CNT: .WORD 0 

T30CNU: .WORD 0 

T30FCN: .WORD 0 

T30DLY: .WORD 0 



; COMMAND PACKET FOR TEST 

;WRITfe CHARACTERISTICS COMMAND. WITH . 

;ADDRESS OF CHARACTERISTICS BLOCK 

; STARTING VALUE OF BLOCK SIZE 
; CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 
:SKIP TAPE PARK CONTROL 
.'MESSAGE BUFFER 



ACK 



:URITE SUB :yS mem COMMAND. AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 



.•RfcREAD COMMAND. IE AND ACK 
;ADDRESS OF WRITE BUFFER 
.SIZE OF BUFFER (EXTENT) 



:bselo area 
:bsel1 area 

;SEL 2 AREA 
.•DATA AREA 



.-NEITHER EWB NOR ESS 
;EWB SET 
:ESS SET 

;BOTH Eua AND ESS SET 
:END OF DATA 

:TAPE TIMER COUNTER STORAGE AREA 
.•TAPE TIMER COUNTER STORAGE AREA 
.•FILE NUMBER COUNTER 
: DELAY COUNTER STORAGE 
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5715 
5716 
5717 
5718 
5719 

5720 036540 

5721 036625 

5722 036711 

5723 036774 

5724 037050 

5725 037122 

5726 037213 

5727 037273 

5728 037351 

5729 037433 

5730 037510 

5731 037571 

5732 037642 

5733 037721 

5734 037766 

5735 040043 

5736 040120 

5737 040167 

5738 040242 

5739 040321 

5740 040374 

5741 040456 

5742 040535 

5743 040613 

5744 040672 

5745 040750 

5746 041014 

5747 041111 
5748 
5749 

5750 
5751 
5752 
5753 
5754 
5755 

5756 041132 

5757 041132 

5758 041136 012701 036350 

5759 041142 012721 100004 

5760 041146 012721 036360 

5761 041152 005021 

5762 041154 012721 000012 

5763 041160 012721 036370 

5764 041164 005021 

5765 041166 012721 000024 

5766 041172 005021 

5767 041174 012711 000000 

5768 041200 012702 000030 

5769 041204 012762 177777 

5770 041212 005742 

5771 041214 022702 000000 
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: LOCAL TEXT MESSAGES FOR TEST 



SCO 



124 


123 


123 


T30lBU: 


122 


in 


4 A9 

102 


T30RiB: 


124 


123 


123 


TSOlBT: 


124 


4 9V 

123 


4 9Y 

123 


T30SKn: 


I<4 


4 9V 

123 


4 9V 

123 


T30Wv: 


124 


111 
1*1 


4 

160 


T3UrTB : 


1 91 


414 
1*1 


loO 


T3ilira: 


1 91 


4 9V 

123 


4 91 

123 


T30Kwr : 


i 51. 


1 

123 


1 9T 

123 


130nvo: 


1 91 


1 9T 
123 


4 9T 

123 


1 jUHPP : 


111 

111 


1 <i 

1 


1 Cl 
1 3* 


TVAl AA« 


137 


122 


111 

111 




Ic* 


19T 

123 


19V 

123 


TVflunc • 


1 91 


11,1 
1*1 


lOU 


13UDU1 • 


19V 
123 


19V 
123 


1 jum: 




19t 

123 


19X 

123 


rVATIl9« 

1 3\i 1 nc • 




145 


167 




104 


162 


151 


T300FL: 


124 


123 


123 


T30WDC: 


103 


126 


103 


T30VCIC: 


124 


115 


113 


T30TN(: 


123 


113 


111 


T30NEF: 


124 


115 


113 


T30RRn: 


124 


115 


113 


T30RRN: 


124 


115 


113 


T30RRP: 


116 


117 


040 


T30DTR: 


104 


141 


164 


TSODTA: 


123 


153 


151 


TST30ID 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TSSR Incorrtct Afttr SKIP TAPE NARK REVERSE Into SOT* 

RIB Bit (XST3) Falltd To Stt Afttr Rtvtrtt Into BOT* 

TSSR Incorrtct Afttr SKIP TAPE NARK REVERSE At BOT* 

TSSR Incorrtct Afttr SKIP TAPE NARK COMtnd* 

TSSR Not Corrtct Afttr VRITE DATA CoMtnd* 

Ttpt Not Potltlontd On Corrtct Rtcord Afttr READ REVERSE* 

Ttpt Not Potltlontd On Stcond FUt First Rtcord' 

TSSR Incorrtct Afttr READ FORWARD Into 'tilt'" 

TSSR Incorrtct Afttr SPACE COMiand Into TAPE NARK' 

TSSR Not Corrtct Afttr Illtgtl Hodt Bits Stt* 

lUtgtl Nodt Bits, FtUtd To Stt ILC Bit In XSTO* 

WRITE MISCELLANEOUS CoMMnd Not Acctpttd' 

TSSR Not Corrtct Afttr SKIP TAPE NARKS, At BOT' 

Tapt Not At BOT Afttr REWIND CoMMtnd' 

TSSR Not Corrtct Afttr SPACE FORWARD CoNKtnd' 

TSSR Not Corrtct Afttr SPACE REVERSE COMMnd* 

Rtwlnd (POSITION) CoMMnd Not Acctpttd' 

Drivt 7 Stltct Falltd To Stt '10FL" In TSSR' 

TSSR Not Corrtct Afttr WRITE TAPE NARK COMMnd' 

CVC Stt. D1dn**t Rtttt VCK In Nttstot Bufftr* 

TNK Not Stt Afttr WRITE TAPE NARK (RETRY) CowMnd* 

SKIP TAPE NARKS. At BOT. falltd To Stt NEF Bit* 

TNK Not Stt Afttr READ REVERSE Into TAPE NARK* 

TNK Not Stt Afttr SPACE REVERSE Into TAPE HARK* 

TNK Not Stt Afttr READ FORWARD Into TAPE NARK* 

NO Datt Transftrrtd On READ FORWARD* 

Data CoNpart Error, Data Rtad FroM Tapt Not Equal To Writttn' 
ASCIZ 'Skip Tapt Harks* 



;♦ 



:ROUTINE TO RESTORE COHHAND PACKET TO START-UP (DEFAULT) VALUES 
.•WRITE SUBSYSTEN HENORY COHHAND 



T30REST: 



036370 64t: 



SAVREG 

NOV ffT30PACKET.R1 

NOV f 100004. (R1)« 

HOV fT300ATA.(R1)« 

CLR (R1)« 

HOV #10.. (R1)^ 

HOV ffT30BFR.(R1)« 

CLR (R1)« 

HOV #20.. (R1)^ 

CLR (R1)« 

HOV #0,(R1) 

HOV #24.. R2 

HOV #177777.T30BFR(R2) 

TST -(R2) 

CHP #0..R2 



.•SAVE THE REGISTERS 

.•START OF THE PACKET 

: WRITE SUBSYSTEH HEH. WITH ACK. 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

.•EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

:ADDRESS OF HESSAGE BUFFER 

.•LENGTH OF HESSAGE BUFFER 

: SELECT DRIVE ZERO 
:NUHBER OF LOCATIONS TO BE CLEARED 
;ALL ONES TO HESSAGE BUFFER 
:NEXT LOCATION 

tf f K R? FOR DQItf 
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5772 


041220 


001371 




BNE 


64t 


5773 


041222 


000207 




RTS 


PC 


5774 












5775 












5776 


041224 






T30RT2: 




5777 


041224 






SAVRE6 




5778 


041230 


012701 


036460 


HOV 


MVVAAkd*^ flk4 

ffT30PK2,R1 


5779 


041234 


012721 


100006 


NOV 


m4 AAAA^ #0^4 k a 

«1 00006. (RD* 


5780 


041240 


AA '%^'%4 

012721 


A f A A 

036510 


HOV 


fT30BF2,(R1)« 


5781 


041244 


A A4 

005021 




CLR 


(RD* 


5782 


041246 


A4 A^t4 

012721 


000006 


HOV 


f6.,(R1)^ 


5783 


041252 


AAf A A4 

005021 




CLR 


# A4 % A. 

(RD* 


5784 


041254 


A4 '%9A4 

01 2701 


AVAC 4 A 

036510 


HOV 


fT30Br2,R1 


5785 


041260 


AAA* A A4 

005021 




CLR 


# A4 % A. 

(RD* 


5786 


041262 


AAf A4 4 

005011 




CLR 


(Rli 


5787 


041264 


000207 




RTS 


PC 


5768 


041266 






T30RT3: 




5789 


041266 






SAVRcG 




5790 


041272 


012701 


036500 


HOV 


«T30PK3,R1 


5791 


041276 


005021 




CLR 


(RD* 




U«» 1 3W 


Uv>Uc1 




tLfl 


\W 1 1* 


5793 


041302 


005021 




CLR 


(RD* 


5794 


041304 


005011 




CLR 


(R1) 


5795 


041306 


000207 




RTS 


PC 


5796 


041310 
041310 
041310 


104401 




ENDTST 





;KEEP GOING UNTIL DONE 
.•RETURN 



.-SAVE THE REGISTERS 

.•START OF THE PACKET 

.-WRITE SUeSVSTEH HEH. WITH ACK. 

.•ADDRESS OF DATA BLOCK 

.EXTENDED ADDRESS 

:SIZE OF DATA BLOCK IN BYTES 

;P0INT TO DATA SEL AREA 



RETURN 

SAVE REGISTERS 

SET UP POINTER ADDRESS 

COHNAND SPACE 

ADDRESS OF DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA TRANSFER BLOCK 

RETURN 

Li 0043: 

TRAP 
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SEO 149 



5798 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 



041312 
041312 

041312 005037 002170 

041316 005037 003100 

041322 012737 005672 002146 

041330 012700 046403 

041334 004737 017376 

041340 012737 000002 002164 

041346 005037 043176 



.SBTTL TEST 3: NO-C* ("CLEAN TAPE") AND INITIALIZE 

THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND INITIALIZE 
COMMAND (SPACE REVfcRSE. ERASE. WRITE DATA) 

THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



5811 
5812 
5813 
5818 
5819 
5820 
5821 
5822 
5823 
5824 

S82S 041352 



B6NTST 

CLR 
CLR 
NOV 
NOV 
JSR 
NOV 
CLR 



FATFLG 
KTFLG 

fEPRTI ,EPRTSW 

tTST31ID,R0 

PCTSTSETUP 

«2,L00PCNT 

T31CNT 



T3: : 

.•CLEAR FATAL ERROR FLAG 

.•HOLD OFF KT11 

; PRIMARY ERROR MESSAGE 

.•ASCII MESSAGE TO IDENTIFY TEST 

:D0 INITIAL TEST SETUP 

.PERFORM 2 ITERATIONS 

.•CLEAR TAPE RECORD COUNTER 



T31L00P: 



1 

I 
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SEQ ISO 



S827 
5828 
S829 
5830 
S831 
5832 
5833 
5834 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 
5845 
5846 
5847 

5848 041352 
041SS2 
041352 

5849 041354 

5850 041360 

5851 041364 

5852 041370 
S8SS 041376 

5854 041402 

5855 041404 
041404 
041410 
041412 
041416 
041420 
041424 
041426 
041432 

5856 041454 

5857 041440 

5858 041442 

5862 041446 

5863 041450 
041450 
041452 
041454 
041456 

5864 041460 

5865 041460 

5866 041464 

5867 041470 

5868 041472 

5872 041476 

5873 041500 
041500 
041502 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000455 
003550 
011656 

012704 
004737 
103407 
004737 
010001 

104456 
000456 



TEST 3. SUBTEST 1 



046450 
046542 
046604 

176750 043202 
016634 



000250 
002116 
177772 
177756 
043202 
020070 



108: 



043020 
010322 

020070 



20$: 



VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION). STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND). AND 
INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUND AND 
MIITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REtMXMD AGAIN 
AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
IS STILL AT BOT AND THAT PROPER STATUS IS CTORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 
VERIFT TNAT DATA WAS NOT CHANGED). THEN THE NO-OP COMMAND IS 
ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 



B6NSUB 



JSft 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



DEC 



JSR 
NOV 
ERRDF 



MOV 
JSR 
BCS 
JSR 
NOV 
ERRMRD 



PC.T31REST 

PC.T31RT2 

PC,T31RT3 

f 65000.. T31DLV 

PC.SOFINIT 

20$ 

2S0 



T31DLT 
10$ 

PC.FATCNK 
R0«R1 

ERRNO.SFIERR.SFINSG 



ffT31 PACKET. R4 

K.WRTCNR 

23i 

PC.FATCHK 
R0.R1 

ERRN0.WRTNS6.SF IMS6 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.1: 

TRAP CSBSUB 

SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SfcT UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 
DO INITIALIZE ON CONTROLLER 
IF INIT HAS OK 



DELAY ABOUT .25 SEC 



MOV 

.WORD 

NOV 

.WORD 

DEC 



DEC 
BNE 



#250. (PC)* 
0 

L$OLY.(PC)* 
0 

-6(PC) 
.-4 

-22 (PC) 
.-20 



BUMP COUNTER 

BR. IF COUNTER NOT DONE 

INC AND CHECK FOR MORE THAN 25 ERRORS 

CONTENTS OF TSSR REGISTER 

FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 
.WORD 301 
.WORD SFIERR 
.WORD SF IMSG 

SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSUED OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

TRAP CtERHRD 
JiOBD 301 
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041504 
041506 
$87A 041510 
041510 

5875 041512 

5876 041516 

5877 041520 

5878 041522 

5882 041526 
041526 
041530 
041532 
041534 

5883 041536 
041536 

5884 041540 

5885 041544 
5816 041546 

5887 041552 

5888 041554 

5889 041556 

5893 041562 
041562 
041564 
041566 
041570 

5894 041572 
041572 

5895 041574 

5896 041602 

5897 041610 

5898 041614 

5899 041620 

5900 041624 

5901 041632 

5902 041636 

5903 041642 

5904 041646 

5905 041652 

5906 041654 

5907 041656 
5911 

5912 
5913 

5914 041662 
041662 
041664 
041666 
041670 

591 5 041672 
041672 

5916 041674 

5917 041700 

5918 041702 

5919 041704 
5923 041710 

041710 



004754 
011656 

104406 
004737 
103407 
010004 
004737 

104456 
000457 
044534 
011670 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000460 
044205 
016334 

104406 

013737 
012737 
012704 
012700 
004737 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000461 
045070 
011670 

104406 
004737 
103407 
010001 
004737 

104456 



010424 
020070 



043046 
000002 

020070 



23$: CKLOOP 

JSft 
BCS 
NOV 
JSR 

ERRNRD 



30S: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEO 
JSR 

ERRHRD 



40S: 

003072 043152 

140005 043150 658: 

043150 

000144 

020362 

000144 043156 

177776 

017110 

000000 

000200 



020070 



80$: 



010424 



020070 



CKLOOP 

NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 



PCNcUlNO 

30$ 

R0«R4 

PCFATCHK 

ERRN0,T31RUN.PKTSSR 



T31BFR*6,R1 

R1.R2 

fBIT1.R2 

R1.R2 

40$ 

PC.FATCNK 

ERRN0.T31B0T.EXPREC 



FREE.T31UB 

f 140005, T31PK3 

fT31PK3.R4 

ff100..R0 

PC.FILLNEN 

f100..T31SZ 

R4.TSDB(R5) 

PCUAITF 

TSSR<R5).R1 

fSSR,R2 

R1,R2 

80$ 

PCFATCHK 



ERRSOFT ERRNO.T31U0C.PKTSSR 



CKLOOP 

JSR 
BCS 
NOV 
JSR 

ERRNRD 



PC. REWIND 
230$ 
R0,R1 
PC.FATCHK 

ERRN0.T31RVN,EXPREC 



.WORD WRTNSG 
.WORD SFINSG 

;L00P IF SELECTED 

TRAP CSCLPl 
.-CALL TAPE REWIND CONNANO 
;BR. IF NO PROBLEN 
;SET UP REWIND PACKET ADDRESS 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.-REWIND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
303 

T31RWN 
PKTSSR 



TRAP CSCLPI 



;PICK UP XSTO 
;SET UP EXPECTED 
.SET BOT BIT IN EXPECTED 
.•DOES EXP * REC'D 
:BR. IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

.•TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 304 
.WORD T31B0T 
.WORD EXPREC 

;LUOP IF SELECTED 

TRAP C$CLP1 
;STARTIN6 WRITE BUFFER ADDRESS 
:WRITE DATA.CVC«1 .ACK CONNAND 
;SET UP R4 WITH PACKET ADDRESS 
:SET PATTERN IN CORRECT REGISTER 
;FILL NENORY WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
.•ISSUE COMNAND 
;WAIT FOR SSR TO SET 
.-GET TSSR CONTENTS 
:SET UP EXPECTED 
:ARE THEY EQUAL 
*BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
.-SOFT ERROR. DON'T CARE ABOUT WRITE 
: CONNAND' S RESULTS - CHECKING 
'NO-OP CONNANO 

•TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 
.WORD 305 
.WORD T31WDC 
.WORD PKTSSR 

;LOOP IF SELECTED . , 

TRAP CSCLPI 

.'CALL TAPE REWIND CONNAND 

;BR. IF NO PROBLEN 

;SAVE TSSR 

.'INC AND CHECK FOR NORE THAN 25 ERRORS 

;REWIND NOT ACCEPTED 

CttHMRD 
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041712 


000462 










0417U 


044534 










041716 


016334 










S924 041720 








2308: 


CKLOOP 


041720 


104406 










S92S 041722 


013701 


043046 






NOV 


5926 041726 


010102 








NOV 


5927 041730 


052702 


000002 






BIS 


5928 041734 


020102 








CNP 


5929 041736 


001406 








BEQ 


5930 041740 


004737 


020070 






JSR 


5934 041744 










ERRHRD 


041744 


104456 










041746 


000463 










041750 


044205 










041752 


016334 










5935 041754 








2408: 


CKLOOP 


041754 


104406 










5936 041756 


012737 


041012 


043150 


2658: 


NOV 


5937 041764 


012704 


043150 






NOV 


5938 041770 


010337 


043156 






NOV 


5939 041774 


010465 


177776 






NOV 


5940 042000 


004737 


017110 






JSR 


5941 042004 


016501 


000000 






NOV 


5942 042010 


012702 


000200 






NOV 


5943 042014 


020102 








CNP 


5944 042016 


001406 








BEQ 


5945 042020 


004737 


020070 






JSR 


5949 042024 










ERRNRD 


042024 


104456 










042026 


000464 










042030 


043403 










042032 


011670 










5950 042034 








2808: 


CKLOOP 


042034 


104406 










5951 042036 


013701 


043046 






NOV 


5952 042042 


010102 








NOV 


5953 042044 


052702 


000002 






BIS 


5954 042050 


020102 








CNP 


5955 042052 


001406 








BEQ 


5956 0420S4 


004737 


020070 






JSR 


5960 042060 










ERRHRD 


042060 


104456 










042062 


000465 










042064 


044205 










042066 


016334 










5961 042070 








2858: 


CKLOOP 


042070 


104406 










5962 042072 


012737 


140001 


043150 




NOV 


5963 042100 


012704 


043150 






NOV 












■nu 

nOV 


5965 042112 


010465 


177776 






NOV 


5966 042116 


004737 


017110 






JSR 


5967 042122 


016501 


000000 






NOV 


5966 042126 


012702 


000200 






NOV 


5969 0421 S2 


020102 








CNP 


5970 042134 


001406 











T31BFRt6«R1 

R1.R2 

«BIT1.R2 

R1.R2 

2468 

PC.fATCHK 

ERRN0,T31B0T.EXPREC 



#041012.T31PK3 

fT31PK3.R4 

R3,T31SZ 

R4,TSDB(R5) 

PCWAITF 

TSSR(R5),R1 

fSSR.R2 

R1.R2 

2808 

PC.FATCNK 

ERRN0.T31RDF.PKTSSR 



T31BFR»6,R1 

R1.R2 

fBIT1.R2 

R1.R2 

2858 

PC.FATCHK 

ERRN0,TS180T,EXPREC 



#140001 .T31PK3 

fT31PK3.R4 

f100.,T3lSZ 

R4.TSD6(R5) 

PC.WAITF 

TSSR<R5)«R1 

fSSR.R2 

R1.R2 



.WORD 
.UORO 

.yoRO 

;L00P IF SELECTED 

TRAP 

;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;90ES EXP • REC'D 

;B«^, IF EQUAL (OK) 

;1NC AND CHECK FOR NORE THAN 25 

;tAPE not at BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

:N0-0P.CVC«1 CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

.-WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

:BR, IF OK 

;INC AND CHECK fOR NORE THAN 25 
;TSSR INCORRECT AFTER READ DATA 

TRAP 



306 

T31RWN 

EXPREC 

C8CLP1 



ERRORS 

C8ERHRD 
307 
T31B0T 
EXPREC 

C8CLP1 



.LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



ERRORS 

C8ERHRD 
308 
T31RDF 
PKTSSR 



TRAP C8CLP1 



.•PICK UP XSTO 
.SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
.•DOES EXP s REC'D 
;BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.-TAPE NOT AT BOT AFTER REWIND 

TRAP C8ERHRD 
.WORD 309 
.WORD T3180T 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP C8CLP1 

;READ.ACK.CVCs1 CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

:WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

:SET UP EXPECTED 

.ARE THEY EQUAL 

If QK 



CZTUZAO TU80 FRONT END PRT D 
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5971 0A2136 


004737 


020070 


S97S 042U2 






M2142 


104456 




0A2U4 


000466 




042146 


043204 




042150 


011670 




S976 0421 S2 






042152 


104406 




5977 042154 


017701 


140712 


5978 042160 


012702 


000144 


5979 042164 


020102 




5980 042166 


001406 




5981 042170 


004737 


020070 


5985 042174 




042174 


104456 




042176 


000467 




042200 


043331 




042202 


016334 




5986 042204 






5987 042204 






042204 






042204 


104403 





290$: 



330S: 



JSR 

ERRHRO 



CKLOOP 

NOV 
NOV 
CNP 
BEO 

JSR 

ERRHRO 



ENDSUB 



PC.fATCMK 

ERRN0J31RDE«PKTSSR 



iFREE.RI 
f100..R2 
R1.R2 
330$ 

PC.FATCHK 

ERRN0,T3iyNG,EXPREC 



:INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



CtCRHRD 
310 
T31RDE 
PKTSSR 



TRAP CSCLP1 



GET DATA READ 
READ EXPECTED 
DID TAPE STAY POSITIONED 
BR. IF EXPD « RECD 

INC AND CHECK FOR MORE THAN 25 ERRORS 
TAPE DATA NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

311 

T31UNG 
EXPREC 



;»»»»»» END SUBTEST »»»»»» 
L10051: 

TRAP CSESU6 



SEO 151 
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SEO 1$A 



5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 

6002 042206 
042206 
042206 

6003 042210 

6004 042214 

6005 042220 

6006 042224 

6007 0422S0 

6008 042232 

6012 042236 

6013 042240 
042240 
042242 
042244 
042246 

6014 042250 

6015 042250 

6016 042254 

6017 042260 

6018 042262 

6022 042266 

6023 042270 
042270 
042272 
042274 
042276 

6024 042300 
042300 

6025 042302 

6026 042306 

6027 042310 

6028 042312 

6032 042316 
042316 
042320 
042322 
042324 

6033 042326 
042326 

6034 042330 

6035 042334 

6036 042336 

6037 042342 

6038 042344 



104402 
004737 
004737 
004737 
004737 
103407 
004737 
010001 

104455 
000470 
003550 
011656 

012704 
004737 
103407 
004737 
010001 

104456 
000471 
004754 
011656 

104406 
004737 
103407 
010004 
004737 

104456 
000472 
044534 
011670 

104406 
013701 
010102 
052702 
020102 
001406 



TEST 3. SUBTEST 2 



046450 
046542 
046604 
016634 

020070 



043020 
010322 

020070 



201: 



23S: 



010424 
020070 



301: 



043C46 
000002 



VERIFIES THAT TNE INITIALIZE COMHAND OPERATES AS A NO-OP. 
ASSUMING NO N I CROD I AGNOSTIC ERRORS ARE PRESENT (THEY WOULD 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



BGNSUB 



HOV 
JSft 
BCS 
JSR 
HOV 
ERRHRO 



CKLOOP 

JSR 
BCS 
HOV 
JSR 

ERRHRD 



CKLOOP 

HOV 
NOV 
BIS 
CHP 



;»»»»»» BEGIN SUBTEST »»»»»» 
T3.2: 





PC.T31REST 


TRAP 


CSBSUB 


JSR 


.SET CONNAND PACKET 




JSR 


PC.T31RT2 


;SET UP OTHER CONHAND PACKET 




JSR 


PC.T31RT3 


:SET UP OTHER COMMAND PACKET 




JSR 


PC.SOFINIT 


;D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


:BR IF INIT WAS OK 




JSR 


PC.FATCHK 


:INC AND CHECK FOR MORE THAN 25 ERRORS 


HOV 


R0«R1 


; CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIHSG 


: FATAL ERROR TSSR WAS NOT OK 








TRAP 


CSERDF 






.WORD 


312 






.WORD 


SFIERR 






.WORD 


SF IHSG 



ffT31 PACKET, R4 

PC.WRTCHR 

23$ 

PC, FAT CMC 
R0.R1 

ERRNO.WRTNSG.SFINSG 



PC. REWIND 
30$ 
R0.R4 
PC.FATCHK 

ERRN0.T31RWN,PKTSSR 



SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR, IF COMMAND ISSUED OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WORD 313 
.WORD WRTMS6 
.WORD SFIMSG 

.LOOP IF SELECTED 

TRAP CSCLPI 
;CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
:SET UP REWIND PACKET ADDRESS 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;REWIND NOT ACCEPTED 



T31BFR»6.R1 

R1.R2 

fBIT1,R2 

R1.R2 

40i 



;L00P IF SELECTED 

;PICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
.DOES EXP s REC'D 
♦an. IF gQUAL (OK) 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
314 

T31RWN 
PKTSSR 



TRAP C$CLP1 



CZTUZAO TU80 FRONT END PRT D MACRO HIZGO 29-nAR-83 15:45 
TEST 5: NO-OP ("CLEAN TAPE") AND INITIALIZE 



N 12 
PACE 92-1 



604S 
6046 



6059 042546 
6045 042552 
042552 
042554 
0425S6 
042560 
6044 042562 
042562 
042564 
042572 

6047 042400 

6048 042404 

6049 042410 

6050 042414 

6051 042422 

6052 042426 
6055 042452 

6054 042456 

6055 042442 

6056 042444 

6057 042446 
6061 

6062 
6065 

6064 042452 
042452 
042454 
042456 
042460 

6065 042462 
042462 

6066 042464 

6067 042470 

6068 042472 

6069 042474 
6075 042500 

042500 
042502 
042504 
042506 

6074 042510 
042510 

6075 042512 

6076 042516 

6077 042520 

6078 042524 

6079 042526 

6080 042550 

6084 042554 
042554 
042556 
042540 
042542 

6085 042544 
042544 

6086 042546 

6087 042554 



004737 020070 

104456 
000475 
044 ?05 
016334 



104406 
013757 
012757 
012704 
012700 
004757 
012757 
010465 
004757 
016501 
012702 
020102 
001406 
004757 



104457 
000474 
045070 
011670 

104406 
004757 
103407 
010001 
004757 

104456 
000475 
044534 
016334 

104406 
013701 
010102 
052702 
020102 
00U06 
004737 

104456 
000476 
044205 
016334 

104406 
012737 
012704 



JSR 

ERRHRD 



40S: CKLOOP 



003072 043152 

140005 043150 65$: 

043150 

000144 

020362 

000144 043156 

177776 

017110 

000000 

000200 



020070 



80$: 



010424 



020070 



043046 
000002 

020070 



PCFATCHK 

£RRN0,T31B0T,E1(PREC 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 



FREE.T31UB 

#1 40005. T51PK5 

ffT31PK3.R4 

«100.,R0 

PC.FILLNEN 

#100.,T51SZ 

R4,TSDB(R5) 

PCUAITF 

TSSR(R5).R1 

fSSR.R2 

R1,R2 

80$ 

PC.FATCNK 



ERRSOFT ERRN0.T51UDC,PKTSSR 



CKLOOP 

JSR 
BCS 
NOV 
JSR 

ERRHRD 



230$: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEO 
JSR 

ERRHRD 



PCREVIND 
250$ 
R0.R1 
PCFATCHK 

ERRN0*T3lRyN,EXPREC 



T31BFR«6.R1 

R1,R2 

ffBIT1.R2 

R1,R2 

240$ 

PC.FATCNK 

ERRN0.T31B0T.EXPREC 



240$: CKLOOP 

041012 043150 265$: NOV 
043150 NOV 



f0410l2.T51PK5 
fT51PK5.R4 



SEQ 1S5 



;INC AND CHECK FOR NORE THAN 25 ERRORS 

.-TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRO 
.WORD 315 
.WORD T51B0T 
.WORD EXPREC 

.•LOOP IF SELECTED 

TRAP C$CLP1 
.'STARTING WRITE BUFFER ADDRESS 
;URITE DATA.CVC*1.ACK CONNAND 
:SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 
;FILL NENORV WITH RECORD SIZE 
;SET UP RECORD SIZE IN PACKET 
; ISSUE CONNAND 
;WAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
;SET UP EXPECTED 
;ARE THEY EQUAL 
*BR iF OK 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;SOFT ERROR, DON'T CARE ABOUT WRITE 

:COHNAND*S RESULTS • CHECKING 

:THE INITIALIZE CONNAND 

:TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 
.WORD 516 
.WORD T51WDC 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP C$CLP1 
;CALL TAPE REWIND CONNAND 
:BR. IF NO PR06LEN 
.-SAVE TSSR 

;]NC AND CHECK FOR NORE THAN 25 ERRORS 
: REWIND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
317 

T51RWN 
EXPREC 



TRAP C$CLP1 



:PICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
.'DOES EXP s REC'D 
:BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 518 
.WORD T51B0T 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP C$CLP1 
: INITIALIZE. CVC-1 CONNAND 
.SET UP R4 WITH PACKET ADDRESS 
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R3.T31SZ 
R4JS0B(R5) 
PC.WAITF 
TSSR(RS),R1 
fSSK,R2 
R1,R2 
280$ 

PCFATCHK 

ERRN0.T31RDF,PKTSSR 



6088 

WWW 


0425&0 

W~fc ^WW 


010337 


043156 






MOV 

nw w 


6089 


042564 


010465 


177776 






NOV 


6090 


042570 


004737 

ww~ • ^ • 


017110 






JSR 


6091 


042574 


016501 

w ■ w^w ■ 


000000 

WW WW WW 






MOV 

nw w 


6092 


042600 

W^fcWWW 


012702 

W ■ i» * Wfc 


000200 

WWWfcWW 






MOV 


6093 

WW w m 


042604 


020102 








CMP 


6094 

WW — ' 


042606 

W^ WWWW 


001406 

WW • ^ WW 








BEQ 


6095 


042610 


004737 


020070 

WfcWWf w 






JSR 


6099 

WW w w 


042614 










ERRHRO 




042614 


104456 












042616 


000477 












042620 


043403 












042622 

W^ fcWfcfc 


011670 










6100 


042624 








280S: 


CKLOOP 




042624 


104406 










6101 


042626 


013701 


043046 






MOV 


6102 


042632 


010102 








MOV 


6103 


042634 


052702 


000002 






BIS 


6104 


042640 


020102 








CMP 


6105 


042642 


001406 








BEQ 


6106 


042644 


004737 


020070 






JSR 


6110 


042650 










ERRHRO 




042650 


104456 












042652 


000500 












042654 


044205 












042656 


016334 










6111 


042660 








285$: 


CKLOOP 




042660 


104406 










6112 


042662 


012737 


140001 


043150 




NOV 


6113 


042670 


012704 


043150 






MOV 


6114 


042674 


012737 


000144 


043156 




NOV 


6115 


042702 


010465 


177776 






NOV 


6116 


042706 


004737 


017110 






JSR 


6117 


042712 


016501 


000000 






NOV 


6118 


042716 


012702 


000200 






NOV 


6119 


042722 


020102 








CNP 


6120 


042724 


001406 








BEQ 


6121 


042726 


004737 


020070 






JSR 


6125 


042732 










ERRHRD 




042732 


104456 












042734 


000501 












042736 


043204 












042740 


011670 










6126 


042742 








290$: 


CKLOOP 




042742 


104406 










6127 


042744 


017701 


140122 






NOV 


6128 


042750 


012702 


000144 






NOV 


6129 


042754 


020102 








CNP 


6130 


042756 


001406 








BEQ 


6131 


042760 


004737 


020070 






JSR 


6135 


042764 










ERRHRO 


042764 


104456 












042766 


000502 












042770 


043250 












042772 


016334 










6136 


042774 








330$: 




6137 


042774 










ENDSUB 



T31BFR*6,R1 

R1.R2 

ffBIT1.R2 

R1.R2 

285$ 

PCFATCHK 

ERRN0.T31B0T,EXPREC 



#140001 .T31PK3 

fT31PK3.R4 

#100.,T31SZ 

R4,TSDe(R5> 

PC.WAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

290$ 

PC.FATCHK 

ERRN0.T31RDE.PKTSSR 



BFREE.RI 
f100..R2 
R1,R2 
330$ 

PC.FATCHK 

ERRN0,T31UNH.EXPREC 



SEO 156 



;SET UP RECORD SIZE IN PACKET 

: ISSUE CONMAND 

;UAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

:BR. IF OK 

;INC AND CHECK FOR HORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 319 
.yORD T31RDF 
.yORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 

;PICK UP XSTO 

;SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

;DOES EXP - REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR HORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 320 
.WORD T31B0T 
.WORD EXPREC 

:L(JOP IF SELECTED 

TRAP C$CLP1 

.-READ.ACK.CVC^I CONNAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

;WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

.ARE THEY EQUAL 

;BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 321 
.WORD T31RDE 
.WORD PKTSSR 

.-LOOP IF SELECTED 

TRAP C$CLP1 

;6ET DATA READ 

.•READ EXPECTED 

:DID TAPE STAY POS.TIONED 

;BR. IF EXPO s RECD 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;TAPE POSITION NOT CORRECT AFTER INIT 

TRAP CSERHRD 
.WORD 322 
.WORD T31WNH 
.WORD EXPREC 

,'»»»»»» PMP SUBTEST »»»»»» 
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042774 

042774 104403 

6136 
6139 
6140 

6141 042776 004737 017344 JSR PC,TSTL0OP 

6142 043002 103002 BCC uiJ 
KJ?8i58% ^^^^ ^^552 , JHP T31L00P 

2*JXJJ 1631: EXIT TST 

043010 104432 
043012 003614 



L100S2: 

TRAP CSESUB 



;D0 WE NEED TO ITERATE TEST 
;BR. IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 
.'ALL DONE THIS TEST 

TRAP CISXIT 
.WORD LI 0050- . 



C IS 
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6U6 
6U7 
6U8 

6150 0430U 

6152 043020 

6153 043020 

6154 043022 

6155 043024 

6156 043026 

6157 043030 

6158 043030 

6159 043032 

6160 043034 

6161 043036 

6162 043040 
6163 

6164 
6165 

6167 043122 

6169 043130 

6170 043130 

6171 043132 

6172 043134 

6173 043136 
6174 

6176 043140 

6178 043150 

6179 043150 

6180 043152 

6181 043152 

6182 043154 

6183 043156 
6184 

6185 
6186 
6187 

6188 043160 

6189 043160 

6190 043161 

6191 043162 

6192 043164 
6193 

6194 
6195 
6196 
6197 

6198 043166 

6199 043170 

6200 043172 

6201 043174 
6202 

6203 

6204 043176 

6205 043200 

6206 043202 
6207 



100004 
043030 
000000 
000012 

043040 
000000 
000024 
000000 



100006 
043160 
000000 
000006 



100005 

003072 
000000 
000000 



010 
200 
000000 
000000 



100205 
100605 
102205 
177777 



000000 
000000 
000000 



: LOCAL STORAGE FOR THIS TEST 
10-<.-TUV2Al7> 



.BLKB 
T31PACrET: 

.WORD 
.WORD 
.WORD 
.WORD 

T31DATA: 

.WORD 
.WORD 
.WORD 
.WORD 
T31BFR: .BLKW 



100004 

T31DATA 

0 

10. 

T31BFR 
0 

20. 
0 

25. 



;WRITE SUBSYSTEM MEMORY COMMAND PACKET 





.BLKB 


10-<.-TOV2Al7> 


T31PK2: 








.WORD 


100006 




.WORD 


T31BF2 




.WORD 


0 




.WORD 


6. 




.BLKB 


10-<.-TUV2AI7> 


T31PK3: 








.WORD 


?0000S 


T31RB: 






T31WB: 


.WORD 


FREE 




.WORD 


0 


T31SZ: 


.WORD 


0 




.EVEN 





T31BF2: 






T31BS0: 


.BYTE 


10 


T31BS1: 


.BYTE 


200 


T31S2: 


.WORD 


0 


T31S3: 


.WORD 


0 



.EVEN 

:TAPE MOTION PACKET COMMAND VALUES 



T31RN: .WORD 
T31WDR: .WORD 
T31C0N: .WORD 
.WORD 



100205 
100605 
102205 
177777 



T31CNT: .WORD 0 
T31CNU: .WORD 0 
T31DLY: .WORD 0 



: COMMAND PACKET FOR TEST 

.•WRITE CHARACTERISTICS COMMAND. WITH 

.•ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
:CHARACTERISTICS DATA BLOCK 
.'ADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 

.•MESSAGE BUFFER 



.-WRITE SUB SYS MEM COMMAND. AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

.'SIZE OF DATA PACKET 



; REREAD COMMAND. AND ACK 
:ADDRESS OF WRITE BUFFER 
.-SIZE OF BUFFER (EXTENT) 



:BSELO AREA 
;BSEL1 AREA 
:SEL 2 AREA 
:DATA AREA 



: REREAD DATA (NEXT) 
.•REREAD DATA RETRY 
.•WRITE CONTINOUS 
;END OF DATA 



:TAPE TIMER COUNTER STORAGE AREA 
.TAPE TIMER COUNTER STORAGE AREA 
.•DELAY COUNTER 
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SEQ 1S9 



6209 
6210 
6211 
6212 
6213 
6214 
6215 

6216 043204 

6217 043250 

6218 043331 

6219 043403 

6220 043452 

6221 043547 

6222 043631 

6223 043701 

6224 043756 

6225 044037 

6226 044073 

6227 044205 

6228 044300 

6229 044400 

6230 044457 

6231 044534 

6232 044603 

6233 044656 

6234 044725 

6235 045000 

6236 045070 

6257 045143 

6238 045216 

6239 045271 

6240 045360 

6241 045442 

6242 045524 

6243 045612 

6244 045700 

6245 046021 

6246 046076 

6247 046203 

6248 046306 

6249 046403 
6250 

6251 
6252 
6253 
6254 
6255 
6256 
6257 

6258 046450 

6259 046450 

6260 046454 

6261 046460 

6262 046464 

6263 046470 

6264 046472 

6265 046476 



124 
124 
124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
116 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
116 
124 
124 
124 
104 
1)6 



012701 
012721 
012721 
005021 
012721 
012721 



123 
141 
141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
117 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
117 
123 
123 
123 
141 
117 



043020 
100004 
045030 

000012 
045040 



.•LOCAL TEXT MESSAGES FOR TEST 



123 T31RDE 

160 T31UNH 

160 T31UNG 

125 T31RDF 

122 T51.W 

123 T31SC: 
102 T51L0R: 
125 T51UDF: 
154 T51L0Q: 

122 T31SSR: 

123 T51UDE: 
160 T51B0T: 
055 T31TW: 
122 T31E0T: 
125 T51Tn: 
167 T51RUN 
115 T51RNC 
125 T51AH5 
151 T510FL 
125 T51UDD 
125 T51UDC 
105 T51VCK 
102 T51BA: 
111 T5iySS: 
141 T5110N: 
141 T51L0P: 
165 T51P8P: 
141 T51TRL: 
055 T51NEF: 
125 T51SCF: 
125 T31TSA: 
125 T51M{F: 
164 T51DTA: 
055 TST51I0: 



.ASCIZ 
.ASCI2 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TSSR Not Corrtct Afttr READ CoRMand' 
Tapt Position Incorrtct After INITIALIZE CoMand* 
Tapt PotUlon incorrtct Afttr NOP Cowiand* 
TSSR Incorrtct Afttr READ DATA CoRMand* 

REREAD Prtvlout (Spact Rtvtrst. Rtad Forward) CoMnand FaUtd* 

POSITION (Spact CoMiand) Fa1ltd« TSSR Not Corf-tct* 

RIB NOT SET AFTER READ REVERSE INTO SOT* 

TSSR Not Corrtct Afttr Illtgal Modt Bits Stt* 

lUtoal Nodt Bits, Falltd To Stt ILC Bit In XSTO* 

REREAD CONNAND Not Acctpttd' 

TSSR Not Corrtct Afttr NO-OP ("CLEAN TAPE") AND INITIALIZE Co«Miand.At BOT' 

Tapt Not At BOT Afttr REWIND Comnand (BOT Not Stt In XSTO)' 

NO-OP ("CLEAN TAPE") AND INITIALIZE"S Erast Tapt Not Lone Enougb' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT* 

TSSR Not Corrtct Afttr REREAD COMNAND Rtjtct* 

Rtwlnd (POSITION) CoMand Not Acctpttd* 

RAN Error« Corrtct Data Patttrn Not In Rata* 

TSSR Inlt. FaUtd Afttr REREAD COMMAND' 

Drivt 7 Stltct Falltd To Stt '10FL" In TSSR* 

TSSR Not Corrtct Afttr REREAD DATA COMaand* SUB Bit Stt* 

TSSR Not Corrtct Afttr REREAD DATA CoiMand* 

CVC Stt, D1dn**t Rtstt VCK In Mtssagt Bufftr' 

TSBA Not Corrtct Afttr REREAD DATA COMMnd* 

WRITE SUBSYSTEM MEMORY CotMand Not Acctpttd (RAM Rtad)* 

Rtading Long Rtcord FaUtd To StU RLL Bit In XSTO* 

Rtading Long Rtcord FaUtd To Stt RLS Bit In xSTO* 

Rtsldual Bytt Count Incorrtct Afttr Short Rtcord Rtad' 

Rtading Long Rtcord FaUtd To Glvt Tapt Status Altrt* 

NO-OP AND INITIALIZE. At First Rtcord, FaUtd To Stt RIB Bltln XSTAT3' 

TSSR Not Corrtct Afttr SPACE RECORDS CoNnand* 

TSSR Not Corrtct Afttr NO-OP ("CLEAN TAPE") AND INITIALIZE. Into BOT' 
TSSR Not Corrtct Afttr NO-OP ("CLEAN TAPE") AND INITIALIZE CoiMiand' 
Data CoMpart Error. Data Rtad Fron Tapt Not Equal To Wrltttn* 
ASCIZ 'NO-OP ("Cltan Tapt") And INITIALIZE* 



; ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
.WRITE SUBSYSTEM MEMORY COMMAND 



T51REST: 



SAVRE6 

MOV 

NOV 

MOV 

CLR 

MOV 

MOV 



fT31PACKET.R1 
'100004, (R1)^ 
«T310ATA,(R1)« 
(RD* 

#10.. (RD* 
fT31BFR.<R1)* 



.SAVE THE REGISTERS 

.•START OF THE PACKET 

:WRITE SUBSYSTEM MEM. WITH ACK. 

.ADDRESS OF CHARAISTICS DATA BLOCK 

;EXTEN9ED ADDRESS 

:SIZE OF DATA DIOCK IN BYTES 

iAPbPFSS ni MSSAGg BUFFER 
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MACRO H1200 
AND INITIALIZE 



6266 046*02 

6267 046)04 
626S 046S10 

6269 046S12 

6270 046516 

6271 046522 

6272 046530 

6273 046532 

6274 046536 

6275 046540 
6276 

6277 

6278 046542 

6279 046542 

6280 046546 

6281 046552 

6282 046556 

6283 046562 

6284 046564 

6285 046570 

6286 046572 

6287 046576 

6288 046600 

6289 046602 

6290 046604 

6291 046604 

6292 046610 

6293 0466U 

6294 046616 

6295 046620 

6296 046622 

6297 046624 

6298 046626 
046626 
046626 



005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



000024 

000000 
000030 
177777 

000000 



043040 64S: 
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CLR (RD* 

NOV #20..(R1)« 

CLR (R1)> 

NOV «0.(R1) 

NOV f24..R2 

NOV #177777.T31BfR(R2) 

TST -<R2) 

CNP fO.R2 

BNE 64$ 

RTS PC 



T31RT2: 



043130 
100006 
043160 

000006 

043160 



T31RT3: 



043150 



SAVRE6 




NOV 


ffT31PK2«R1 


NOV 


f100006«(R1)* 


NOV 


ffT31BF2,(R1)* 


CLR 


(R1)« 


NOV 


«6.,(R1)« 


CLR 


(R1)« 


NOV 


fT31BF2.R1 


CLR 


(RD* 


CLR 


(R1) 


RTS 


PC 


SAVRE6 




NOV 


fT31PIC3.R1 


CLR 


(RD* 


CLR 


(R1)« 


CLR 


(RD^ 


CLR 


(R1) 


RTS 


PC 


ENOTST 





.'LENGTH OF NESSAGE BUFFER 

.•SELECT DRIVE ZERO 

;NUN8ER OF LOCATIONS TO BE CLEARED 

;ALL ONES TO NESSAGE BUFFER 

.-NEXT LOCATION 

;A7 END OF LOOP YET 

;KEEP GOING UNTIL DONE 

.•RETURN 



.-SAVE THE REGISTERS 

.•START OF THE PACKET 

:URITE SUBSYSTEN NEN. WITH ACX. 

;ADC»ESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.•SIZE OF DATA BLOCK IN BYTES 

;P0INT TO DATA SEL AREA 



.•RETURN 

;SAVE REGISTERS 

.SET UP POINTER ADDRESS 

.CONNANO SPACE 

: ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

.SIZE OF DATA TRANSFER BLOCK 

: RE TURN 

L10050: 

TRAP CSE 
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6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
63U 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 

6326 046630 
046630 

6327 046630 005037 002170 

6328 046634 005037 003100 

6329 046640 012737 005672 002146 

6334 046646 012700 052440 

6335 046652 004737 017376 

6336 046656 012737 000001 002164 

6337 046664 005037 051310 
6336 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 

6348 046670 T32L00P: 
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.SBTTL TEST 4: Erttt And Optratlon Inconplttt 

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT 60T OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 

1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUM8ER 
OF THE TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0). 

4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
REVERSE INTO BOT (RIB) STATUS BIT IS SET. AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
WAS ENCOUNTERED Ift THE AREA ERASED BY THE ERASE 
COMMAND. 



SEQ 161 



THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



BGNTST 

CLR 
CLR 
MOV 
MOV 
JSR 
MOV 
CLR 



FATFL6 
KTFL6 

fEPRTI.EPRTSW 

fTST32lD,R0 

PCTSTSETUP 

fl.LOOPCNT 

T32CNT 



T4: ; 

.•CLEAR FATAL ERROr'flAG 
:HOLO OFF KT11 

;PftlMARY ERROR MESSAGE 

; ASCI I MESSAGE TO IDENTIFY TEST 

:D0 INITIAL TEST SETUP 

.•PERFORM 1 ITERATIONS 

: CLEAR TAPE RECORD COUNTER 



TEST 4, SUBTEST 1 



VERIFIES THAT A Erast And Optratlon Incoaplttt COMMAND ISSUED WHILE 
THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
ERROR BIT SET. 
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6350 



6351 046670 








046670 








046670 


104402 






6352 046672 


004737 


052500 




6353 046676 


004737 


052572 




6354 046702 


004737 


052622 




6355 046706 


012737 


176750 


051314 


6356 046714 


004737 


016634 




6357 046720 


103426 






6358 046722 








046722 


012727 


000250 




046726 


000000 






046730 


013727 


002116 




046734 


000000 






046736 


005367 


177772 




046742 


001375 






046744 


005367 


177756 




046750 


001367 






6359 046752 


005337 


051314 




6360 046756 


001356 






6361 046760 


004737 


020070 




6365 046764 


010001 






6366 046766 








046766 


104455 






046770 


000621 






046772 


003550 






046774 


011656 






6367 046776 








6368 046776 


012704 


051120 




6369 047002 


004737 


010322 




6370 047006 


103407 






6371 047010 


004737 


020070 




6375 047014 


010001 






6376 047016 








047016 


104456 






047020 


000622 






047022 


004754 






047024 


011656 






6377 047026 








047026 


104406 






6378 047030 


004737 


010424 




6379 047034 


103411 






6380 047036 


010004 






6381 047040 


016501 


000000 




6382 047044 


004737 


020070 




6386 047050 








0470S0 


104456 






0470S2 


000623 






047054 


051500 






047056 


011670 






6387 047060 








047060 


104406 






6388 047062 


012703 


000400 




6389 047066 


013737 


003072 


051252 


6390 047074 


012737 


UOOOS 


051250 


6391 047102 


012704 


051250 





10$: 



20$: 



25$: 



26$: 



B6NSUB 



JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



DEC 
ONE 
JSR 
MOV 
ERRDF 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRD 



CKLOOP 

NOV 
NOV 
NOV 
NOV 



PC,i32REST 

PC.T32RT2 

PC,T32RT3 

#65000. J32DLV 

PC.SOFINIT 

20$ 

250 



T32DLY 
10$ 

PCFATCHK 
R0.R1 

ERRN0.SFIERR.SFINS6 



fT32PACKET.R4 

PC.yRTCHR 

25$ 

PC.FATCNK 
RO.RI 

ERRN0,tMTMS6,SFlNS6 



PC. REMIND 

26$ 

R0*R4 

TSSR(R5).R1 
PC.FATCHK 

ERRN0.T32RtfN.PKTSSR 



#256. «R3 

FREE.T32yB 

f140d05«T32PK3 



SEQ 162 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4.1: 

TRAP CSBSUB 

SET COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP OTHER COMMAND PACKET 
SET UP DELAY COUNTER 
00 INITIALIZE ON CONTROLLER 
BR IF INIT WAS OK 
DELAY ABOUT .25 SEC 



MOV 

.UORD 

MOV 

.WORD 

DEC 



DEC 
BNE 



#250. (PC)* 
0 

L$DLV.(PC}« 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 



;BUNP COUNTER 

;BR. IF COUNTER NOT DONE 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.CONTENTS OF TSSR REGISTER 

.-FATAL ERROR TSSR UAS NOT OK 

TRAP CSEROF 
.MORD 401 
.UORD SFIERR 
.yORD SFIMS6 

.•SUBROUTINE NEEDS PACKET ADDRESS 
.ISSUE WRITE CHARACTERISTICS 
;BR. IF COMMAND ISSUED OK 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•SAVE CONTENTS OF TSSR 
.•yRITE CHARACTERISTISC FAILED 



TRAP 
.UORD 
.yORD 
.yORD 



C$ERHRD 
402 

URTNSG 
SFIMSG 



.-LOOP IF SELECTED 

TRAP C$CLP1 
.•CALL TAPE REMIND CONNAND 
.BR. IF NO PROBLEM 
.SET UP REMIND PACKET ADDRESS 
;6ET TSSR CONTENTS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
{REMIND NOT ACCEPTED 



;LOOP IF SELECTED 



TRAP 
.MORD 
.UORD 
.UORD 



CSERHRD 
403 
T32RUN 
PKTSSR 



STARTING RECORD SIZE 
STARTING URITE BUFFER ADDRESS 
URITE DATA.CVC-1 .ACK COMMAND 
SfT UP R4 WITH PAfKPT ADDRESS 



TRAP C$CLP1 
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6392 047106 

6393 047112 

6394 047116 

6395 047122 

6396 047126 

6397 047132 

6398 047134 

6399 047136 
6403 

6404 
640S 

6406 047142 
047142 
047144 
047146 
047150 

6407 0471 S2 
047152 

640B 047154 

6409 047156 

6410 047162 

6411 047164 

6412 047170 

6413 047172 

6414 047176 

6415 047200 

6419 047204 
047204 
047206 
047210 
047212 

6420 047214 
047214 

6421 047216 

6422 047222 

6423 047224 

6424 047230 

6425 047232 

6426 047234 

6430 047240 
047240 
047242 
047244 
047246 

6431 047250 
047250 

6432 0472S2 

6433 047260 

6434 047264 

6435 047270 

6436 047274 

6437 047300 

6438 047304 

6439 047306 

6440 047310 
6444 047314 

047314 



0S1256 
177776 
017110 
000000 
000200 



0ZCO70 



001002 
010424 
000000 
020070 



010337 
01046S 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000624 
052336 
011670 

104406 
005723 
020327 
001351 
004737 
103411 
016501 
010004 
004737 

104456 
000625 
051500 
011670 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000626 
052166 
016334 



104406 

012737 140411 051250 
012704 051250 
010465 177776 
004737 017110 
016501 000000 
012702 000200 
020102 
001406 

004737 020070 

104456 



27S: 



28$: 



30S: 



051146 
000002 

020070 



40S: 



NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 



R3.T32SZ 

R4.TS0B(R5) 

PC.tfAlTf 

T5SR(R5),R1 

fSSK.R2 

R1.R2 

28S 

PC.FATCNK 



ERRSOFT ERRNO.T32WDC.PKTSSR 



CKLOOP 

TST 
CNP 
BNE 
JSR 
BCS 
NOV 
NOV 
JSR 

ERRNRD 



CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEO 
JSR 

ERRNRD 



CKLOOP 

NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHRD 



(R3)^ 

RS.fSU. 

27$ 

PC .REWIND 
30S 

TSSR(RS),R1 

R0.R4 

PCFATCHK 

ERRNO.T32RUN.PKTSSR 



T32BFR»6,R1 

R1,R2 

fSIT1,R2 

P1.R2 

40$ 

PC.FATCNK 

ERRN0.T32B0E.EXPREC 



f140411.T52PK3 

fT32PK3.R4 

R4.TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

fSSR.R2 

R1.R2 

50i 

PC.FATCNK 

ERRN0.T32ERA.PKTSSR 



;SET UP RECORD SIZE IN PACKET 

.-ISSUE CONNAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EOUAL 

:BR. IF OK 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
:SOFT ERROR. DON'T CARE ABOUT MITE 
;CONNAND*S RESULTS • CHECKING THE 
'ERASE CONPIAND 

•TSSR INCORRECT AFTER WRITE DATA 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERSOFT 
404 
T32WDC 
PKTSSR 



TRAP CSCLPI 



:BUNP RECORD COUNTER 
;AT NAX SIZE YET 
;8R. IF NOT AT END OF LOOP 
.CALL TAPE REWIND CONNAND 
:BR. IF NO PROBLEN 
.'GET TSSR CONTENTS 
: SET UP REWIND PACKET ADDRESS 
:INC AND CHECK FOR NORE THAN 25 ERRORS 
;RfcWlND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

405 

T32RWN 
PKTSSR 



TRAP C$CLP1 



.•PICK UP XSTO 
.-SET UP EXPECTED 
.SET BOT BIT IN EXPECTED 
.-DOES EXP - REC*D 
;BR. IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•TAPE AT BOT AFTER ERASE 

TRAP CSERHRD 
.WORD 406 
.WORD T32BOE 
.WORD EXPREC 

:LOOP IF SELECTED 

TRAP C$CLP1 
.•ERASE TAPE.CVCs1.ACK CQNNANO 
.SET UP R4 WITH PACKET ADDRESS 
.ISSUE CONNAND 
.•WAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
.•SET UP EXPECTED 
;ARE THEY EQUAL 
•BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
;TSSR INCORRECT AFTER ERASE DATA 

IfiAP tUaMBO 



I IS 
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•Cai CRASC 


AND OPERATION INCOMPLETE 








000627 












0S1616 












011670 


















SOI* 


f Kl OOP 




104406 












013701 


051146 






MOV 


fJ^LJ A47YX9 


010102 








MOV 




042702 


000002 






Rlf 

Bl V 




020102 












001406 








BED 


SlL^\ 047144 


004737 


020070 






JSR 


(tL'it 047l<(0 










^nnvmv 


047X10 


104456 












000630 












052166 












016334 


















SSi: 


CKLOOP 


047X60 


104406 










M%7 047X6? 


013737 


003072 


051252 




MV 


MSA 047X70 


012737 


140401 


0S12S0 




NOV 


64S9 047X76 


012737 


000400 


051256 




NOV 


6460 047404 


012704 


051250 






NOV 


6461 047410 


010465 


177776 






NOV 


6462 047414 


004737 


017110 






JSR 


646X 047490 


016501 


000000 






NOV 


6464 047424 


012702 


100204 






NOV 


646S 047430 


020102 








CNP 


6466 047432 


001406 








BEQ 


6467 047434 


004737 


020070 






JSR 


6471 047440 










ERRNRD 


047440 


104456 










047442 


000631 










047444 


052111 










047446 


011670 










6472 0474S0 








180$: 


CKLOOP 


0474S0 


104406 










6473 0474S2 


013701 


051154 






NOV 


6474 0474S6 


010102 








NOV 


64 7S 047460 


052702 


000001 






BIS 


6476 047464 


020102 








CNP 


6477 047466 


001406 








BEQ 


647S 047470 


004737 


020070 






JSR 


64A? 047474 










ERRHRD 


047474 


104456 










047476 


000632 










047S00 


051 736 










047S02 


016334 






190$: 




64S3 047504 










6434 047504 










ENOSUB 


047504 












047504 


104403 











T32BFR«6,R1 

R1.R2 

fBlT1,R2 

RUR2 

55$ 

PC.FATCNK 

EilllNO,T3260E,EXP;<EC 



FREE,T32RB 

#140401 .T32PK3 

f256..T32SZ 

fT32PK3«R4 

R4.TSDB(RS) 

PC.«AITP 

TSSR(R5).R1 

fSSR!SC!BIT2,B2 

R1.R2 

180$ 

PCJATCHIC 

ERRNO,T32TSA.PKTSSR 



T328FR«14.R1 

R1,R2 

#BnO,R2 

R1.R2 

190$ 

PCFATCHK 

ERRN0,T32RIB,EXPREC 



:LOOP IP SELECTED 



.WORD 
.WORD 
.WORD 



407 

T32ERA 

PKTSSR 



TRAP C$CLP1 



;PICK UP XSTO 
;SET UP EXPECTED 
:SET BOT BIT IN EXPECTED 
;DOES EXP « REC'D 
:BR, IF EQUAL (OK) 

:INC AND CHECK FOR HORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 



;LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



C$ERHRD 
408 

T32BOE 
EXPREC 



TRAP CtCLPI 



;ADORESS OF BUFFER 
:READ REVERSE. ACK.CVCsl CONNAND 
;SET UP THE SIZE OF RECORD 
:SET UP R4 WITH PACKET ADDRESS 
; ISSUE CONNAND 
.'WAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
;SET UP EXPECTED TAPE STATUS ALERT 
;ANE THEV EQUAL 
'BR IF OK 

•INC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP 



:LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 



CSERHRD 
409 
T32TSA 
PKTSSR 



TRAP C$CLP1 



:6ET XST3 STATUS WORD 
;SET UP EXPECTED 
:SET THE RIB BIT 
;ARE THEV EQUAL 
;BR, IF EQUAL (GOOD) 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
:RIB SHOULD BE SET 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
410 
T32R1B 
EXPREC 



;»»»»»» END SUBTEST »»»»»» 
LI 0054: 

TRAP CSESUB 
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SEQ 16S 



6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6S00 

6S01 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 047506 
047506 
047506 

6521 047510 

6522 047SU 

6523 047520 

6524 047524 

6525 047530 

6526 047552 

6550 047536 

6551 047540 
047540 
047542 
047544 
047546 

6532 047550 

6533 047550 

6534 047554 

6535 047560 

6536 047S62 

6540 047566 

6541 047570 
047570 



TEST 4. SUBTEST 2 



VERIFIES THAT AN ERASE CONNAND EXECUTED WNEN THE TAPE IS NOT 
POSITIONED AT SOT OPERATES PROPERLY AND DOFS NOT CORRUPT 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 

1. THE TAPE IS FIRST REWOUND. SEVERAL TEST RECORDS ARE 
WRITTEN. AND THE TAPE IS REWOUND AGAIN. 

2. A SPACE RECORDS FORWARD COfWAND IS ISSUED TO HOVE THE 
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
RECORDS. 

3. AN ERASE COfWANO IS ISSUED. WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

4. NORNAL TERMMATION IS VERIFIED AND STATUS IS CHECKED. 

5. A READ REVERSE COWMND IS ISSUED. IT IS VERIFIED THAT 
NORMl TERMNATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSfERREO CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN TNE AREA ERASED BY THE ERASE COMMAND. AND THAT THE 
MEVIOUS RECORD WAS NOT tORRUPTED. 



104402 
004737 
004737 
004737 
004737 
103407 
004737 
010001 

104455 
000633 
003SS0 
011656 

012704 
004737 
103407 
004737 
010001 

104456 



052500 
052572 
052622 
016634 

020070 



B6NSUB 



JSR 
JSR 
JSR 
JSR 
BCS 
JSR 
MOV 
ERRDF 



PC.T32REST 

PC.T32RT2 

PC.T32RT3 

PC.SOFINIT 

20t 

PC.FATCNK 
R0.R1 

ERRNO.SFIERR.SflMSG 



051120 
010322 

020070 



20S: 



NOV 
JSR 
BCS 
JSR 
MOV 
ERRHRD 



fT32PACKET.R4 

PC.WRTCNR 

23S 

PC.FATCNK 
R0.R1 

ERRNO.WRTNSG.SFIMSG 



;»»»»»» BEGIN SUBTEST »>»>»»» 
T4.2: 

TRAP CSBSUB 

.SET COMMAND PACKET 
;SET UP OTHER COMMND PACKET 
:SET UP OTHER COMMAND PACKET 
;D0 INITIALIZE ON CONTROLLER 
;BR IP INIT WAS OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.CONTENTS OF TSSR REGISTER 

.•FATAL ERROR TSSR WAS NOT OK 

TRAP CtERDF 
.WORD 411 
.WORD SFIERR 
.WORD SFINS6 

SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSUED OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

IfiAP C*fR»*Rft 
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6544 
6545 



6SS1 



6561 



047572 
047574 
047576 

6542 047600 
047600 

6543 047602 
047606 
047610 

6546 047612 
6550 047616 
047616 
047620 
047622 
047624 
047626 
047626 

6552 047630 

6553 047634 

6554 047636 

6555 047642 

6556 047644 

6557 047646 
047652 
047652 
047654 
047656 
047660 

6562 047662 
047662 

6563 047664 
047670 
047672 

6566 047676 

6567 047704 

6568 047712 

6569 047716 

6570 047720 

6571 047724 

6572 047730 

6573 047734 

6574 047740 

6575 047744 

6576 047750 

6577 047752 

6578 047754 
6582 

6583 
6584 

6585 047760 
047760 
047762 
047764 
047766 

6586 047770 
047770 

6587 047772 

6588 047774 



6564 
6565 



000634 
004754 
011656 

104406 
004737 
103407 
010004 
004737 

104456 
000635 
051500 
011670 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000636 
051316 
016334 

104406 
012703 
010300 
004737 
013737 
012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000637 
052336 
011670 

104406 
005723 
020527 



23S: 



010424 
020070 



30S: 



051146 
000002 

020070 



CKLOOP 

JSR 
BCS 
NOV 
JSR 

ERRNRD 



CKLOOP 

NOV 
NOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



PC. REWIND 
30S 
R0,R4 
PC.FATCHK 

ERRN0.T32RWN.PKTSSR 



T32BFR«6,R1 

R1.R2 

f8IT1.R2 

R1,R2 

408 

PC.FATCHK 

ERRNO.T32BOT,EXPREC 







408: 


CKLOOP 




000144 






MOV 


#100. ,R3 








MOV 


R3.R0 


020362 






JSR 


PC.FILLHEH 


003072 


051252 




MOV 


FREE,T32VB 


140005 


051250 


658: 


MOV 


f 140005. T32PK3 


051250 






MOV 


fT32PK3.R4 








MOV 


R3.R0 


020362 






JSR 


PC.FILLMEN 


051256 






MOV 


R3.T32$Z 


177776 






MOV 


R4,TS0B(R5} 


017110 






JSR 


PC.UAITF 


000000 






MOV 


TSSR(R5).R1 


000200 






MOV 


fS$R.R2 








CMP 


R1.R2 








BEQ 


808 


020070 






JSR 


PC.FATCNK 



ERRSOFT ERRN0.T32UDC.PKTSSR 



808: 



000156 



CKLOOP 

TST 
CMP 



(R3)^ 
R3,f110. 



SEQ 166 



.WORD 412 
.WORD WRTHSG 
.WORD SFIHS6 

;LOOP IF SELECTED 

TRAP CtCLPI 
;CAIL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 
.-SET UP REWIND PACKET ADDRESS 
:INC AND CHECK FOR MORE THAN 25 ERRC9S 
.•REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 413 
.WORD T32RWN 
.WORD PKTSSR 

.'LOOP IF SELECTED 

TRAP CSCLP1 

;PICK UP XSTO 

;SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

.•DOES EXP « REC'D 

;BR. IF EQUAL (OK) 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
.WORD 414 
.WORD T32BOT 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CSCLP1 

;STARTING RECORD SIZE 

;SET UP MEMORY FILL 

:CALL MEMORY FILLER 

.•STARTING WRITE BUFFER ADDRESS 

.•WRITE DATA.CVC^I.ACK COMMAND 

;SET UP R4 WITH PACKET ADDRESS 

;SET PATTERN IN CORRECT REGISTER 

;FILL MEMORY WITH RECORD SIZE 

.-SET UP RECORD SIZE IN PACKET 

.ISSUE COMMAND 

.•WAIT FOR SSR TO SET 

.-GET TSSR CONTENTS 

:SET UP EXPECTED 

.•ARE THEY EQUAL 

:BR. IF OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 
.•SOFT ERROR. DON'T CARE ABOUT WRITE 
: COMMAND'S RESULTS - CHECKING THE 
.•ERASE COMMAND 

:TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSOFT 
.WORD 415 
.WORD T52W0C 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP CSCLP1 
;BUNP RECORD SIZE COUNTER 
lK\ UQ illi YET 



L 15 
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DnC 


09* 


0>7U U>UUUc 




U IW*C* 






ICD 


or DCutim 
910ft 


U7UVllO 


1At^A7 








Arc 




A1AAA1 










on B1 


037 J U>UUIC 










ICO 

Jin 


or kATTur 












coouDn 


EBDUA Tl9BLiy CVDBKr 


ACAA1A 


1U**30 












ACAA3A 


AAAA^A 












n(nA99 
wwcc 


AS1SAA 
U3 l3Uv 














AIAXX^ 












03tO U3UVCO 








910t • 

C3w9 • 


CWI AAP 




w3\IVCO 


lA^^AA 












ASM OSMICi 

03TT V7UwJw 


011701 
V 1 3r V 1 


0S11AA 

v3 1 I^O 






NOV 


T12BFRt6.R1 




010109 








wast 


R1 R2 


OOV 1 U3UV30 


0S7709 
w3£ rue 


00AA09 

vVVvvC 






HIS 

Did 


fBITI R2 

vol i 1 «nC 


OOwC V3VVIC 


0901 09 










R1 R2 


OOW3 W3W"l"t 


001 AOA 








ocw 


240$ 


AAA! OSnOAA 


OOA717 


090070 








PC.fATCHK 


MAA ASAAS9 

QOVO VjWjC 












FRRNO T12B0T EXPREC 


v3V\l3C 


1 OA ASA 












ASAAS^ 


AAAAA1 












ASAASA 


AS1Y1A 












ASAAAA 
V3UVDW 


AIAY^ 












AAAO ASAAA9 








2A0t* 


CKLOOP 




ASAAA9 
VjWQC 


10AA0A 










#1 R3 


AA1Q QSOOAA 


019701 


000001 






NOV 

nwv 


AA11 QS007Q 


OOA717 


010110 






JSR 


PC. SPACE 


0S007A 


012717 
u icr Jv 


140411 


051250 


265i: 


nww 


#140411 .T32PK3 


AAI^ AS01Q? 

OO 1 J VJV 1 uc 


012704 


0S1250 






NOV 


#T32PK3.R4 


0SQ10A 
ooi^ V3UIVW 


01 0465 


1 77776 

1 f r * f w 






NOV 

■ tww 


R4.TSI>fi(R5) 


661^ 0S0112 


004737 


017110 

W V « f • w 






JSR 


PC.VAITF 




016501 


000000 

wvwwww 






MOV 


TSSR(R5).R1 




012702 


000200 








fSSR.R2 


0SQ126 


020102 








CMP 


R1 .R2 


0^01 M 


001406 










280S 


AA70 0S01^2 

OOCV V'w 1 jc 




020070 






JSR 


PCFATCHK 


OOC*l V3U 1 30 










FRRHRD 


ERRNO T32ERA.PKTSSR 


V3V • JO 


lOAASA 














000A4? 












v3w • *ic 


AS1A1A 














011A70 












AA9S 0S01IA 








2R0t: 


CKLOOP 




w3w I^O 


10AA0A 










FREE,132RB 


AA7A OSOISO 


01 1717 


001072 


051252 




MOV 

nww 


AA97 0S01SA 


01 2717 

VIC' J» 


140A01 

l^*^W 1 


0512S0 




NOV 

nww 


#140401 ,T32PK3 
#100. .TsZSZ 

w www* # ■ ^fcw* 


0S01AA 

OOCO w3WIO^ 


012717 


000144 

WW 1 


051256 




MOV 

nww 


QOCy Ire 


012704 


0S19S0 






MOV 

nuw 


#T32PK3.R4 




010AA5 


1 77776 






MOV 

nww 


R4.TSDB(R5) 


6631 OS0202 


004737 


017110 






JSR 


PCWAITF 


6632 050206 


016501 


000000 






MOV 


TSSR(R5),R1 


6633 050212 


012702 


000200 






MOV 


#SSR.R2 

R1.R2 

290S 


6634 050216 


020102 








CMP 


6635 050220 


001406 








BEQ 


6636 050222 


004737 


020070 






JSR 


PC.FATCHK 


6640 050226 








ERRHRO 


ERRN0.T32TSA,PKTSSR 


050226 


104456 













050230 000645 



;BR. IF MORE RECORDS TO WRITE 
;CALL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 
:SAVE TSSR 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 

TRAP CtERHRD 
.WORD 416 
.WORD T32RWN 
.WORD EXPREC 

:LOOP IF SELECTED ' 

TRAP CSCLP1 

;PICK UP XSTO 

:SET UP EXPECTED 

:SET BOT BIT IN EXPECTED 

;DOES EXP * REC'D 

;BR. IF EQUAL (OK) 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.WORD 417 
.WORD T32BOT 
.WORD EXPREC 

.LOOP IF SELECTED 

TRAP CSCLPI 
;SET UP FOR SPACE COMMAND 
; ISSUE SPACE COMMAND 1 FORWARD 
;ERASE OATA.ACK COMMAlk 
;SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
;UAIT FOR SSR TO SET 
:6ET TSSR CONTENTS 
.-SET UP EXPECTED 
;ARE THEY EQUAL 
*BR IF OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 418 
.WORD T32ERA 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP CSCLPI 

.•ADDRESS OF BUFFER 

.•READ REVERSE .ACK.CVC^I COMMAND 

:SET UP THE SIZE OF RECORD 

.•SET UP R4 UITH PACKET ADDRESS 

.•ISSUE COMMAND 

.-WAIT FOR SSR TO SET 

.-GET TSSR CONTENTS 

:SET UP EXPECTED TAPE STATUS ALERT 

:ARE THEY EQUAL 

•BR IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER READ DATA 

TRAP CtERHRD 



N 13 
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050232 
0S0234 
66A1 050236 
OS0236 

6642 050240 

6643 050244 

6644 050250 

6645 050252 

6646 050254 

6650 050260 
050260 
050262 
050264 
050L66 

6651 050270 
050270 

6652 050272 

6653 050272 
050272 
050272 



052111 
011670 

104406 

017701 132626 
012702 000144 
020102 
001406 

004737 020070 

104456 
000644 
052255 
016334 

104406 



104403 



290S: CKLOOP 

NOV 
NOV 
CMP 
BEQ 
JSR 

ERRHRD 



300S: 
330S: 



CKLOOP 
ENDSUB 



8FRfc£,R1 
f100wR2 
R1,R2 
300S 

PC.FATCHK 

ERRNO,T32ECF,EXPREC 



.yORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;6ET DATA READ 
.•SHOULD BE 100 
; CHECK* EM OUT 
:BR, IF OK 

;INC AND CHECK FOR MORE THAN 25 
.ERASE COMMAND DIDN'T WORK 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



T32TSA 
PKTSSR 

CSCLP1 



ERRORS 

CSERHRD 
420 
T32ECF 
EXPREC 

CSCLPI 



;»»»»»» END SUBTEST »»»»»» 
L10055: 

TRAP CSESUB 
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66SS 

66S6 

66S7 

6658 

66S9 

6660 

6661 

6662 

6663 

6664 

666S 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 

6682 

6683 

6684 

6685 

6686 

6687 

6688 

6689 

6690 

6691 

6692 

6693 050274 
050274 
050274 

6694 050276 
66?5 050302 

6696 050306 

6697 050312 

6698 050320 

6699 050324 

6700 050326 
050326 
050332 
050334 
050340 
050342 
050346 
050350 
050354 

6701 0503S6 



TEST 



9S: 



104402 

004737 052572 

004737 052500 

004737 052622 

012737 176750 051314 

004737 016634 10$: 
103426 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 



000250 
002116 
177772 
177756 
051314 



N 13 
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SEO 169 



SUBTEST 3 

VERIFIES THAT AN ERASE COHHAND ENC0UNTEHIN3 THE EOT IMRKER, OR 
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT 
TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION 
INCOMPLETE STATUS. THE F0LL0UIN6 TES^ SEQUENCE IS EXECUTED: 

1. THE TAPE IS REWOUND. 

2. ERASE COMMANDS ARE REPEATEDLY ISSUED UNTIL EOT STATUS 
IS SEEN. AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
THAN NORMAL (WITH EOT^O) OR TAPE STATUS ALERT (WITH 
EOTsI) IS ENCOUNTERED. IF THE CONTROLLER OR TRANSPORT 
DOES NOT DETECT THE EOT. THE TRANSPORT WILL FAULT. 
THIS IS REPORTED AS A FATAL ERROR AND THE TEST IS 
ABORTED. 

3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 
WITH EOTsl. 

4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
(ISSUED IN THE ORDER 6IVfeN> RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH 0PI=1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
(OPPsO) REREAD PREVIOUS (0PP=1) REREAD NEXT (OPP-1) 
REREAD NEXT (OPP^O) READ NEXT SKIP TAPE HARKS REVERSE 
SKIP TAPE HARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 



BGN5UB 



JSR 
JSR 
JSR 
HOV 
JSR 
BCS 
DELAY 



PC.T32RT2 

PC.T32REST 

PC.T32RT3 

f 65000., T32DLV 

PC.SOFINIT 

20S 

250 



;»»»»»» BEGIN SUBTEST »»»»»» 
T4,3: 

TRAP CSBSUB 
;SET UP OTHER COHHAND PACKET 
:SET COMMAND PACKET 
:SET UP OTHER COMMAND PACKET 
:SET UP DELAY COUNTER 
;D0 INITIALIZE ON CONTROLLER 
;BR IF INIT WAS OK 



.DELAY ABOUT .25 SEC 



HOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



#250. (PC)* 
0 

L$DLY.(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 
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Or vc 


fl^0X6? 


nni K6 

UV 1 j70 






AMP 

one 






nn^7X7 

Uw*»f jl 


A9An70 




ICR 


A707 

Of w» 




Ainnni 

w lUww 1 






nuv 


Of wO 


























U3w Jf 1 


AAA6K 










v3Ujf O 


AAX((A 












wl I030 








Of VT 


0^010? 

U3w*tUC 






?Qt> 
cu*> 




Of IV 












Of 1 1 




Q1?70£ 


0(1 1?Q 
wJ 1 1 CV 




Mnv 


671? 

Of 1 c 


0^0406 


004737 

vv*l f J f 


01 o3?? 

w 1 VJCC 




JSR 


Of 1 J 




10Hfl7 

1 V J*lvf 






Dk9 


Of 1*1 






0?0070 




JCR 


6711 

Of lO 


0$04?0 


010001 

VI VW 1 






MOV 


Off IT 


0^04?? 














1 A1K6 










0S04?4 


000646 










QS01?6 

U?W*ICO 














0116S6 

w 1 i V JO 








6790 
Off cv 








?3S* 






05041? 


104406 








67?1 

Off C 1 


050434 


004737 

WW^ff Jf 


0104?4 






67?? 
Of cc 


050440 


103411 

f V Jl 1 1 








67?'^ 

Of C J 


0S044? 


016(01 

V lOJV 1 


000000 

vwwvv 




MOV 

nvw 


67?4 

Of 


050446 


010004 

W 1 wWWI 






MOV 

nvw 


67?S 


050450 


004737 


0?0070 




JSR 


6729 

Off 


050454 








Kf^nfinir 




050454 


104456 










050456 

UJi^ JO 


000647 










0S0460 












05046? 


011670 








6730 

Off 








30i; 


CKLOOP 




050464 


104406 








6731 
Of ^ * 


050466 


013701 


051146 




NOV 


671? 
Of jc 


0^047? 


01010? 






MOV 


6733 


0S0474 


052702 


00000? 




BIS 


6734 

Of 


050500 


02010? 






CMP 


673S 


05050? 


001406 






DC. V 


6736 

Of JO 


050504 

V JW 


004737 

W^ff Jf 


020070 

VC Wf V 




JSR 


67&0 

Off *lv 


0S0S10 












0S0510 

U JV J 1 w 


1044(6 

1 JW 










0(051? 


000650 

WVO JW 










050514 

V J VJ 1 ^ 


0(1116 

V J 1 J 1 o 










050516 

UJVJ lO 


016314 








6741 

Of ^ 1 


0505?0 

V JU7CV 






40t* 


CKLOOP 




050(?0 

V JV JCV 


104406 








674? 
Of *>c 


0505?? 

V JU JCC 


012737 

V ICf Jf 


140411 051250 


65i* 

O Jv • 


NOV 


6743 

Of ^ J 


050530 

V JwJ JV 


012704 


051250 

V^ 1 c^v 




NOV 

nvT 


6741 

Of 


050534 

V JV J J^ 


010337 


051 ?56 

V^ 1 c^v 




NOV 


674 S 


05054^ 


010465 


17/776 

1 f f f f V 




NOV 

nv w 


6746 

Of lO 




004737 


017110 

V 1 f 1 IV 




JSR 


6747 

Of ^ff 




016S01 


000000 
www 




NOV 

nvw 


6748 


0S0554 


012702 


000200 




NOV 


6749 


050560 


020102 






CMP 


6750 


0SOS62 


001757 






BEQ 


6751 


050S64 


010102 






NOV 



10$ 

PC.FATCHK 
R0.R1 

EPRNO.SFIERR.SFIMSG 



fT32PACKET.R4 

PC.URTCHR 

23S 

PC.FATCHK 
R0.R1 

ERRN0.URTNSG.SFINS6 



PC.REWIND 
30i 

TSSR(RS),R1 

R0,R4 

PC.FATCHK 

ERRN0,T32RVN,PKTSSR 



T32BFR*6,R1 

R1.R2 

•8IT1.R2 

R1,R2 

40$ 

PC.FATCHK 

ERRNO.T32B0T.EXPREC 



f 14041 1.T32PK3 

fT32PK3.R4 

R3J32SZ 

R4.TSDB(R5) 

PC.WAITF 

TSSR(R5>.R1 

fSSR.R2 

R1.R2 

65i 

lltE2 



;BR. IF COUNTER NOT DONE 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•CONTENTS OF TSSR REGISTER 
.•FATAL ERROR TSSR WAS NOT OK 



TRAP 
.WORD 
.WORD 
.WORD 



CSERDF 
421 

SFIERR 
SF1HS6 



;SU8R0UTINE NEEDS PACKET ADDRESS 

.•ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.-SAVE CONTENTS OF TSSR 

;WRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 422 
.WORD WRTMSG 
.WORD SF1HS6 

.•LOOP IF SELECTED 

TRAP C$CLP1 
.•CALL TAPE REWIND CONNAND 
;BR. IF NO PROBLEM 
;GET TSSR CONTENTS 
;GET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
.•REWIND NOT ACCEPTED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
423 
T32RWN 
PKTSSR 



TRAP C$CLP1 



.•PICK UP XSTO 
;SET UP EXPECTED 
.•SET BOT BIT IN EXPECTED 
.•DOES EXP s REC'D 
;BR. IF EQUAL (OK) 

.•INC AND CHECK FOR MORE THAN 25 ERRORS 

:TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 424 
.WORD T32BOT 
.WORD EXPREC 

;L00P IF SELECTED 

TRAP C$CLP1 
.•ERASE DATA.CVC^I.ACK COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
:SET UP RECORD SIZE IN PACKET 
.•ISSUE COMMAND 
.'WAIT FOR SSR TO SET 
.•GET TSSR CONTENTS 
:SET UP EXPECTED 
.•ARE THEY EQUAL 
.•BR. IF OK 

■SAVg ORIC TSSR 



c u 
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#1 77760, R1 

«BIT2,R1 

80$ 

R?.R1 

PC^ATCHK 

EftRNO,T32UDC,PKTSSR 



65$ 



T32BFR*6.R1 

R1,R2 

ffBIT0.R2 

R1,R2 

240$ 

PC.fATCHK 

ERRNO.T32EOT.EXPREC 



TEST 4: ERASE 


AND OPERATION INCOMPLETE 






6752 050566 


042701 


1 77760 




SIC 


6753 050572 


122701 


000004 




CMPB 


6754 050576 


001410 






BEQ 


6755 050600 


010201 






nov 


6756 05C602 


004737 


020070 




JSR 


6760 050606 








ERRHRO 


050606 


104456 








050610 


000651 








050612 


052336 








050614 


011670 








6761 050616 


000741 






BR 


6762 0S0620 






80$: 


CKLOOP 


0S0620 


104406 








o763 050622 


013701 


051146 




HOV 


6764 050626 


Jk4 

010102 






NOV 


6765 0506^ 


052702 


AAAAA4 

000001 




BiS 


6766 050634 


020102 






CHP 


6767 050636 


AA4 M 0k A. 

001406 






BEQ 


6768 050640 


AA J W9 

004737 


020070 




JSR 


6772 050644 








ERRKRD 


050644 


104456 








050646 


000652 








050650 


051411 








050652 


A4 ^ W/ 

016354 








6773 050654 






240$: 


CKLOOP 


050654 


104406 








6774 050656 


012703 


AC1 ^A.f% 

051 260 




NOV 


6775 050662 


013737 


0030/2 051232 




NOV 


6776 050670 


01 1 337 


AC4 OCA 

051250 


265$: 


NOV 


6777 050674 


012704 


AC1 OCA 

051250 




HOV 


6778 050700 


012700 


177777 




NOV 


6779 050704 


AAZ 

004737 


020362 




JSR 


6780 050710 


012737 


AAA4 i / AC4 0CA 

000144 091256 




NOV 


6781 050716 




1 77179 




NOV 


6782 050722 




AAAA4 0 AC4V1£ 

000012 051314 




NOV 


6783 050730 


004737 


A4 71 1 A 

01/110 


270$: 


JSR 


6784 050734 


016501 


AAAAAA 

000000 




NOV 


6785 050740 


012702 


100214 




NOV 


6786 050744 


020102 






CNP 


6787 050746 


001425 






BEQ 


6788 050750 








DELAY 


050750 


012727 


AAAIff A 

000250 






050754 


000000 








050756 


A4 

013727 


002116 






050762 


000000 








050764 


005367 


1 77772 






050770 


001 375 








050772 


005367 


« W9CA 

1 77756 






050776 


001967 








6789 051000 


005337 


ACf 

031314 




DEC 


6790 951004 








BNE 


6791 051006 


004737 


030070 




JSR 


6795 051012 








ERRHRD 


051012 


104456 








0S10U 


000653 








0S1016 


052255 








0S1020 


011670 









«T32CNO.R3 

FREE,t32RB 

(R3).T32PK3 

«T32PK3,R4 

#'{ 77777, RO 

PCFILLNEN 

«10O.,T32SZ 

R4.TSDB(R5> 

f10wT32DLY 

PC.tfAITF 

TSSR(R5),R1 

fSSR!SC!8IT2!BIT3,R2 

R1 .R2 

280$ 

250 



T32DLY 
270$ 

PCFATCHK 

ERRNO,T32ECF,PKTSSR 



;ONLY SAVE 4 BITS 
; CHECK FOR REAL TAPE STATUS ALERT 
:BR, IF REAL TAPE STATUS ALERT 
; RESTORE R1 FOR ERROR PRINTOUT 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
:TSSR INCORRECT AFTER WRITE DATA 



.KEEP GOING 
:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
425 

T32WOC 
PKTSSR 



TRAP C$CLP1 



;PICK UP XSTO 
.SET UP EXPECTED 
.SET EOT BIT IN EXPECTED 
;DOES EXP > REC'D 
:BR, IF EQUAL (OK) 

:INC AND CHECK FOR NORE THAN 25 ERRORS 
.•TAPE NOT AT EOT AFTER ERASE CONNANDS 

TRAP C$ERKRD 
.WORD 426 
.WORD T32EOT 
.WORD EXPREC 

.-LOOP IF SELECTED 

TRAP C$CLP1 

;SiARTING RECORD SIZE 

; STARTING READ BUFFER ADDRESS 

.READ DATA.ACK CONNANO 

.SET UP R4 WITH PACKET ADORERS 

;SET PATTERN IN CORRECT REGISTER 

:FILL NENORY WITH ALL ONES 

:SET UP RECORD SIZE IN PACKET 

.•ISSUE CONNAND 

;SET UP DELAY COUNTER 

.•WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

•BR IF OK 

; DELAY FOR SSR TO BE :iET 

NOV #2';0.(PC)* 
.WORD 0 

NOV L$DLV.(PC)* 
.WORD 0 
DEC -6(PC) 
BNE .-4 
DEC >22(PC) 
BNE .-20 
.•COUNT DELAY ROUTINE DOWN 
;BR. If DELAY HAS NOT ENDED 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
.•TSSR INCORRECT AFTER READ DATA 

TRAP CSERHRD 
.WORD 427 
.WORD T32ECF 
.WO RD PlUSR 
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6796 051022 
051022 

6797 051024 
679S 051030 

6799 051032 

6800 051036 

6801 051040 

6802 051042 

6806 051046 
051046 
051050 
051052 
051054 

6807 051056 
0S10S6 

6808 051060 

6809 051062 

6810 051066 

6811 051070 
051070 
051 070 

6812 
6813 
6814 

6815 051072 

6816 051076 

6817 051100 

6818 051104 
051104 
051106 



* 04406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000654 
052403 
016334 

104406 
00S723 
021327 
001300 



104^03 



004737 
103002 
000137 

104432 
001536 



051154 
000100 

020070 



177777 



280$: CKLOOP 

mv 

BIS 
CW» 
BEQ 
JSR 

ERRHRD 



290t: CKLOOP 
TST 

cw» 

BNE 

291 S: ENDSUB 



017344 
046670 



163S: 



JSR 
BCC 
JNP 
EXIT 



T32BFR«14.R1 

RVR2 

«Blie.R2 

R1.R2 

290t 

PC.FATCHK 

ERRN0.T320PI,EXPREC 



(R3}* 

(R3> ,1177777 
265» 



PC.TSTLOOP 
163S 
T32L00P 
TST 



:LO0P IF SELECTED 

TRAP CtCLPI 

PICK UP XST3 

SET UP EXPECTED 

SET OPl BIT IN EXPECTED 

IS OPI BI'i SET 

BR, IF BIT IS SET 

INC /^D CHECK FOR HORE TNAN 25 ERRORS 
OPI BIT NOT SET 



.•LOOP IF SELECTED 



TRAP 
.yORD 
.WORD 
.WORD 



CfERHRD 
428 

T320PI 
EXPREC 



TRAP CtCLPI 



;BUP1P COMMAND POINTER 
;AT END OF TABLE YET 
:BR. KEEP TRYING COMMANDS 
;»»»»»» END SUBTEST »»»»»» 
LI 0056: 

TRAP CtESUB 



:D0 WE NEED TO ITERATE TEST 
:BR, IF NO LOOP REQUIRED 
;EXECUTE AGAIN 
:ALL DONE THIS TEST 

TRAP CSEXIT 
.WORD L10053-. 
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6820 

WWfc V 




• 4 




6821 




•LOCAL STQAAfiF 


fOB TMIC TF<T 
r uii 1 n 1 # 1 c 9 1 


6822 








6824 051110 




* BLKB 




6826 051120 

WWfcW •/ ^ t • & V 






6827 051120 


100004 


UORD 


1 00004 


6828 051122 


051130 




1 wM 1 M 


6829 051124 


000000 




0 

w 


6850 051126 


000012 


.yORD 


10 

1 w • 


6831 051 ISO 




T32DATA: 




6832 051 ISO 


051140 


.UORD 


T32BFR 


6833 051132 


000000 

WW WW WW 


.WORD 


0 


6834 051134 


000024 


.WORD 


20. 


6835 051136 


000000 

w www WW 


.WORD 


0 


6836 051140 

^^^^^^^^ ^ • • ^w^^ 




T32BFR: .8LKW 


25. 


6837 




• 
• 




6838 




:MITE SUBSYSTEM MEMORY COMMAND 


6839 




• 




6841 051222 




.8LKB 


10-<.-TUV2A87> 


6843 051230 




T32PK2: 




6844 051 230 


100006 


.WORD 


100006 


6845 051232 

^^^^^ ^ ^ ■ ^F » 


000000 


.WORD 


0 


6846 051234 

^^^^^^^ 


000000 


.WORD 


0 


6847 051236 


000006 


.WORD 


6. 


6849 051240 




.BLKB 


10-<.-TUV2a7> 


6851 051250 




T32PK3: 




6852 051250 


100005 


.WORD 


100005 


6853 051252 




T32RB: 




6854 051252 


003072 


T32WB: .WORD 


FREE 


6855 051254 


000000 


.WORD 


0 


6856 051256 


000000 


TS2SZ: .WORD 


0 


6857 




.EVEN 




6858 




.TAPE NOTION PACKET COHHAND VAL 


6859 051260 




T32CND: 




6860 051260 


140410 


.WORD 


140410 


6861 051262 


141410 


.WORD 


141410 


6862 051264 


140401 


.WORD 


140401 


6863 051266 


141001 


.WORD 


141001 


6864 051270 


161401 


.WORD 


161401 


6865 051272 


161001 


.WORD 


161001 


6866 051274 


141401 


.WORD 


141401 


6867 051276 


140001 


.WORD 


140001 


6868 051300 


141410 


.WORD 


141410 


6869 051302 


141010 


.WORD 


141010 


6870 051304 


141005 


.WORD 


141005 


6871 051306 


177777 


.WORD 


177777 


6872 




• 




6873 051310 


000000 


T32CNT: .WORD 


0 


6874 051312 


000000 


T32CNU: .WORD 


0 


6875 051314 


000000 


T32DLY: .WORU 


0 



.•COMMAND PACKET FOR TEST 

.•WRITE CHARACTERISTICS COMMAND, WITH . 

.'ADDRESS OF CHARACTERISTICS BLOCK 

.•STARTING VALUE OF BLOCK SIZE 
;CHARACTERISTICS DATA BLOCK 
.•ADDRESS OF MESSAGE BUFFER 

.'LENGTH OF MESSAGE BUFFER 

.•MESSAGE BUFFER 



.'WRITE SUB SYS MEM COMMAND, AND ACK 
.'ADDRESS OF SELECT BLOCK DATA 

;SIZE OF DATA PACKET 

: REREAD COMMAND. AND ACK 
.ADDRESS OF WRITE BUFFER 
;SIZE OF BUFFER (EXTENT) 



; SPACE RECORDS REVERSE 
;SKIP TAPE HARKS KEVERSE 
:READ REVERSE 
: REREAD PREVIOUS (OPP«0) 
.'REREAD NEXT (0PP«1) 
.•REREAD PREVIOUS (OPP^I) 
; REREAD NEXT (OPPsO) 
;READ NEXT 

.SKIP TAPE MARKS REVERSE 
.'SKIP RECORDS FORWARD 
.WRITE DATA RETRY 
:ENO OF DATA 

:TAPE TIMER COUNTER STORAGE AREA 
.-TAPE TIMER COUNTER STORAGE AREA 
.•DELAY COUNTER 
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SEQ 174 



6877 
6878 
6879 
6880 
6881 
6882 

6883 051316 

6884 051411 
6685 051500 

6886 051547 

6887 051616 

6888 051663 

6889 051736 

6890 052034 

6891 052111 

6892 052166 

6893 052255 
6894 
6895 
6896 



052336 
052403 
6897 052440 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 

6906 052500 

6907 052500 
6906 052504 

6909 052510 

6910 052514 

6911 052520 

6912 052522 

6913 052526 

6914 052532 

6915 052534 

6916 052540 

6917 052542 

6918 052546 

6919 052552 

6920 052560 

6921 052562 

6922 052566 

6923 052570 
6924 

6925 

6926 052572 

6927 052572 

6928 052576 

6929 052602 

6930 052606 

6931 052610 

6932 052612 

6933 052616 



; LOCAL TEXT MESSAGES FOR TEST 



124 


141 


160 


T32B0T: 


.ASCIZ 


124 


141 


160 


T32E0T: 


.ASCIZ 


122 


145 


167 


T32RUN: 


.ASCIZ 


124 


123 


123 


T32AM3: 


.ASCIZ 


124 


123 


123 


T32ERA: 


.ASCIZ 


124 


123 


102 


T32BA: 


.ASCIZ 


122 


105 


101 


T32RIB: 


.ASCIZ 


124 


123 


123 


T32SCF: 


.ASCIZ 


124 


123 


123 


T32TSA: 


.ASCIZ 


102 


117 


124 


T32BOE: 


.ASCIZ 


105 


122 


101 


T32ECF: 


.ASCIZ 


124 


123 


123 


T32W0C: 


.ASCIZ 


117 


120 


111 


T320PI: 


.ASCIZ 


105 


162 


141 


TST32ID: 










.EVEN 



012701 
012721 
005021 
005021 
012721 
005021 



'Tapt Not At BOT Afttr REWIND COMiand (BOT Not S*t In XSTO)* 
*T«p0 Statu* Altrt During Erast To EOT, But EOT Not Sat* 
'Rawind (POSITION) CoMand Not Accaptad' 
•TSSR Inlt. Fallad Aftar REREAD CONNAND* 
*TSSR Not Corract Aftar ERASE CoMiand' 
*TSBA Not Corract Aftar REREAD DATA COMiand' 
*READ REVERSE. Aftar ERASE from BOT. Fallad To Sat RIB In X$T3' 
*TSSR Not Corract Aftar SPACE RECORDS Comand* 
*TSSR Not Corract Aftar READ REVERSE Into BOT' 
*BOT (XSTO) StfU Sat Aftar Erasa Fro« Tapa"s BOT Harkar* 
'ERASE Fallad To Claar Tapa (Erata) Tapa Proparly* 

*TSSR Not Corract Aftar ERASE Co««and* 

*OPI Bit (XST3) FaUad To Sat* 

.ASCIZ *Erata And Oparatlon Incoa«»lata' 



:ROUTINE TO RESTORE COMIAND PACKET TO START-UP (DEFAULT) VALUES 
:IIR1TE SUBSYSTEH NENORV CONNANO 



T32REST: 







SAVRE6 




;SAVE THE REGISTERS 


012701 


051120 


NOV 


fT32PACKET.Rl 


.START OF THE PACKET 


012721 


100004 


NOV 


f 100004. (Rl)« 


.URITE SUBSYSTEM MEN. WITH ACK. 


012721 


051130 


NOV 


fT32DATA.(Rl)« 


.ADDRESS OF CNARAISTICS DATA BLOCK 


005021 




CLR 




.•EXTENPED ADDRESS 


012721 


000012 


NOV 


fl0..(Rl)« 


;SIZE OF DATA BLOCK IN BYTES 


012721 


051140 


NOV 


fTS26FR.(Rl)* 


.'ADDRESS OF MESSAGE BUFFER 


005021 




CLR 


(R1)» 




012721 


000024 


NOV 


f20..(R1)* 


.LENGTH OF MESSAGE BUFFER 


005021 




CLR 


(RD* 




012711 


000000 


NOV 


fO,(ll1) 

fl 77777. T32BFR(R2) 


.'SELECT DRIVE ZERO 


012702 


000030 


NOV 


;NUMBER OF LOCATIONS TO BE CLEARED 


012762 


177777 051140 64f: 


NOV 


.ALL ONES TO MESSAGE BUFFER 


005742 




TST 


-tR2) 


.NEXT LOCATION 


022702 


000000 


CMP 


fO.R2 


;AT END OF LOOP YET 


001371 




BNE 


64S 


.KEEP GOING UNTIL DONE 


000207 




RTS 


PC 


;RETURN 



T32RT2: 



051230 
100006 



000006 



SAVRE6 

NOV 

NOV 

CLR 

CLR 

NOV 

CLR 



fT32PK2.R1 
#100006. (R1)» 
(R1)« 
(RD* 
f6.,(R1)« 
<R1)» 



;SAVE THE REGISTERS 

: START OF THE PACKET 

.•WRITE SUBSYSTEM HEM. WITH ACK. 

.ADDRESS OF DATA BLOCK 

:EXTENDED ADDRESS 

:SIZE or DATA BLOCK IN BYTES 
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6934 052620 

6935 052622 

6936 052622 

6937 052626 
693S 052632 

6939 052634 

6940 052636 

6941 052640 

6942 052642 

6943 052644 
052644 
052644 



000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



T32RT3: 



051250 



RTS 

SAVREG 

MOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENOTST 



PC 



fV32PK3.R1 

(R1>* 

(R1)« 

(RD* 

(R1> 

PC 



.•RETURN 

SAVE REGISTERS 

SET UP POINTER ADDRESS 

COMMAND SPACE 

ADDRESS or DATA BLOCK 

EXTENDED ADDRESS 

SIZE OF DATA TRANSFER BLOCK 

RETURN 



L10053: 

TRAP CSETST 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 



6947 
6948 
6949 
6950 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
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.SBTTL TEST 5: OPERATIONS AT EOT 



SEQ 176 



6960 

6961 

6962 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 

7005 

7006 



052646 
052646 
052646 
052652 
052656 
052664 
052670 
052674 
052702 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVfcRSE. ERASE, WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 



005037 
005037 
012737 
012700 
004737 
012737 
005037 



002170 
003100 
005672 
057112 
017376 
000001 
055542 



002146 
002164 



86NTST 

CLR 
CLR 
NOV 
NOV 
JSR 
MOV 
CLR 



FATFLG 
KTFLG 

fEPRTI .EPRTSW 

«TST341D,R0 

PCTSTSETUP 

fl.LOOPCNT 

TS4CNT 



T$: : 

.•CLEAR FATAL ERROR FLAG 
;HOLD OFF KT11 

.'PRIMARY ERROR MESSAGE 
.'ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
;PERFORH 1 ITERATIONS 
.'CLEAR TAPE RECORD COUNTER 



TEST 5. SUBTEST 1 



THIS TEST VERIFIES THAT THE EOT SiATUS IS HANDLED PROPERLY BY 
THE VARIOUS TAPE NOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 
IS PERFORMED: 

1. THE TAPE IS REWOUND. 

2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOT«K ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED* SO THE TAPE ENDS UP WITH GOOD DATA. 

5. ANOTNCR WRITE DATA COMMAND IS ISSUED. AND IT IS CHECKED 
THAI TAPE STATUS ALERT TERMINATION OCCURS. WITH EOT^I. 

4. A WRITE TAPE NARK COMMAND IS ISSUED. AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS. WITH EOT-I. 

5. A SKIP TAPE HARKS REVERSE COMMAND IS ISSUED. AND IT IS 
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS. WITH 
E0T*1 AND TMK>1. 

6. A SPACE RECORDS REVERSE COMMAND. WITH A RECORD COUNT OF 
1. IS ISSUED. AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS. WITH EOT«T AND TMK*1. 

7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1. IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOTxI. 

8. A SPACE RECORDS FO RWARD COMMAND. WITH A RECORD COUNT QT 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS M EOT 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

70U 

7015 

7016 

7017 

7018 

7019 

7020 

7021 

7022 

7023 

7024 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 052706 
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SEO 177 



1, IS ISSUED. AND IT IS CHECKED THAT NORMAL TERNINATION 
OCCURS, WITH EOTsl. 

9. A READ REVERSE COfflAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH E0T«1. 

10. A READ FORWARD COMMAND IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH E0T«1. 

11. A SPACE RECORDS REVERSE COMMAND, tflTH A RECORD COUNT OF 
3, IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, UITH EOT»0. 

12. A SPACE RECORDS FORUARD COMMAND, UITH A RECORD COUNT OF 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, UITH E0T«1. 

13. A SKIP FILE MARKS REVERSE COMMAND IS ISSUED, WHICH 
SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH EOTsQ. 
B0T«1, AND RIB«1. 



T34L00P: 



CZTUZAO TU80 FRONT £ND PRT 0 
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7036 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 052706 
052706 

052706 104402 

7060 
7061 
7062 
7063 
7064 
7065 
7066 
7067 

7068 052710 004737 057614 

7069 052714 004737 057750 

7070 052720 004737 057706 

7071 052724 012737 176750 

7072 052732 004737 016634 

7073 052736 103433 

7074 052740 

052740 012727 000250 
052744 000000 
052746 013727 002116 
052752 000000 
052754 005367 177772 
052760 001375 
052762 005367 177756 
052766 001367 

7075 052770 016501 000000 

7076 052774 032701 000200 

7077 053000 001012 

7078 053002 005337 055544 

7079 053006 001351 

7080 053010 004737 020070 

7084 053014 010001 

7085 053016 
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:TEST 5. SUBTEST 1 

I'VERIFIES THAT URITiMC OVER THE ENO-OF-TAPE (EOT) 
jHARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
:TAPE TRANSPORT DOES NOT RECOGNIZE THE EOT HARKER« THE 
;TAPE WILL RUN OFF THE END OF THE REEL. CAUSING THE 
: PROGRAM SEQUENCE TO BE ABORTED UITH A FATAL ERROR 
.'INDICATION. IN THIS CASE. CORRECTIVE MAINTENANCE 
.-MUST BE PERFORMED USING THE TRANSPORT'S BUJLT-JN 
;MAINTENANCE ROUTINE AVAILIABLE VIA THE FRONT PANEL. 
;IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT. THE 
; TRANSPORT UILL FAULT BUT THE TAPE WILL NOT RUN OFF 
;THE END OF THE REEL BUT THE TRANSPORT MUST BE 
:MANUALLV PLACED BACK ON-LINE TO BE USABLE. THIS IS A 
.■FATAL DIAGNOSTIC ERROR. 



SEQ 178 



BGNSUB 



;»»»»»» BEGIN SUBTEST »»»»»» 
T5.1: 

TRAP CSBSUB 



SET UP THE PACKET BUFFERS AND UAIT LONG TIME FOR SSR 
THEN ISSUE A SOFT INITIALIZE 



055544 



10$: 



JSR 
JSR 
JSR 
NOV 
JSR 
BCS 
DELAY 



PC.T34REST 

PC.T34RT3 

PC.T34RT2 

#65000.. T34DLY 

PC.SOFINIT 

20t 

250 



.SET COMMAND PACKET 

: RESTORE PACKET 

.'SET UP OTHER COMMAND PACKET 

.SET UP COUNTER 

.'DO INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

.-DELAY A yHlLE 

MOV 

.WORD 

MOV 

.yORD 

DEC 

BNE 

DEC 



MOV 
BIT 
BNE 
DEC 
BNE 
JSR 
MOV 
ERRPF 



TSSR(R5).R1 
fSSR.Rl 

20$ 

T34DLY 

10$ 

PC.FATCHK 
RCRI 



#250. (PC) ♦ 
0 

L$DLY,(PC)* 
0 

-6(PC) 
.-4 

-22(PC) 
,-20 



:GET TSSR STATUS 
.CHECK FOR SSR SET 
:BR. WHEN SSR IS SET 
:BUMP COUNTER DOUN 
;BR. IF MORE DELAY REQUIRED 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.'CONTENTS OF TSSR REGISTER 
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SEQ 179 



055016 
055020 
055022 
055024 
7086 055026 
055026 

7087 
7088 
7089 
7090 
7091 
7092 
709S 
7094 
'095 

7096 055050 

7097 055054 

7098 055040 

7099 055042 
71 OS 053046 

7104 055050 
055050 
055052 
055054 
055056 

7105 055060 
055060 

7106 
7107 
7108 
7109 
7110 
7111 
7112 

7113 053062 

7114 053066 

7115 053070 

7116 055074 

7117 055076 

7121 053102 
053102 
053104 
055106 
053110 

7122 053112 
053112 

7123 
7124 
7125 
7126 
7127 
7128 
7129 
7130 

7131 053114 

7132 053122 

7133 053130 



104455 
000765 
005550 
011656 

104406 



012704 
004757 
105407 
004757 
010001 

104456 
000766 
004754 
011656 

104406 



004737 
105411 
016501 
010004 
004757 

104456 
000767 
057134 
011670 

104406 



012757 
015757 
012737 



20$: CKLOOP 



;LOOP IF SELECTED 



TRAP CtEROF 

.UORD 501 

.WORD SFIERR 

.WORD SF1NS6 



TRAP 



CSCLP1 



055400 
010322 

020070 



ISSUE A WRITE CHARACTERISTICS COPIMN» TO COMfWUfll 



30$: 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRO 



CKLOOP 



fT34PACKET.R4 

PC.WRTCNR 

30i 

PC.FATCHK 
R0«R1 

ERRNO.WRTNSG.SFINSG 



SUMOUTINi NEEM PACttT ADDRESS 

ISME mm CNAMCTERISTICS 

BR. If CONIMND ISSUED OK 

INC AND CNECK fm NONE TNAN 25 ERRORS 

SAVE CONTENTS OF TSSR 

WRITE CNANACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.•LOOP IF SELECTED 

TRAP 



CSER^ 

502 

WRTNSG 
SFINSG 



C$CLP1 



ISSUE A REWIND COHRAND 



010424 
000000 
020070 



35$: 



JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRO 



CKLOOP 



PC.REWINO 
35$ 

TSSR(R5).R1 

R0.R4 

PC.FATCHK 

ERRNO«T34RWN,PKTSSR 



.REWIND CALL 

;BR. IF TSSR IS OK (GOOD) 
;6ET TSSR 
.-SET UP PACKET 

:INC AND CHECK FOR MORE THAN 25 ERROriS 
:TSSR IS INCORRECT AFTER REWIND 

TRAP CSERHRD 
.WORD 505 
.WORD T34RVN 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP CSCLPI 



ISSUE A WRITE COMMND. CHECK FOR ERRORS. TNIS IS SO TNAT THE 
DRIVE WILL NOT JUST HANG IF AN ERROR OCCURS. 



140005 
003072 
006654 



055530 
055532 
055536 



NOV f1 40005, T34PK3 
NOV FREE.T34WB 
NOV i35Q6..T34S2 



.•WRITE DATA. ACK. CVC«1 
:SET UP WRITE MFFEII ADMESS 
.SfT UP Nurfft si?t tlA MTtSl 



CZTUZAO TU80 FRONT END PRT 0 
TEST S: OPERATIONS AT EOT 



L U 

NACRG mZOO 29-MAR-83 13:43 PACE 10S-2 



SEQ 180 



7134 053136 

7135 053142 

7136 053146 

7137 053152 

7138 053156 

7139 053162 

7140 053164 

7141 053166 

7145 053172 
053172 
053174 
053176 
053200 

7146 053202 

7147 053204 
053204 

7148 
7149 
7150 
7151 
7152 
7153 
7154 
7155 
7156 

7157 053206 

7158 053214 

7159 053220 

7160 053226 

7161 053234 

7162 053240 

7163 053244 

7164 055250 

7165 053254 

7166 053260 

7167 053262 

7168 053264 

7169 053266 

7170 053270 
7174 053274 

053274 
053276 
053300 
053302 

7175 
7176 
7177 
7178 
7179 
7180 
7181 

7182 053304 

7183 953310 

7184 053312 

7185 053314 

7186 053320 

7187 053522 



012704 
010465 
004737 
016501 
012702 
020102 
001407 
004737 

104457 
000770 
005011 
011670 
000757 

104406 



012737 
012703 
013737 
012737 
012704 
010465 
004757 
016501 
012702 
020102 
001010 
005303 
001364 
004757 

104455 
000771 
056745 
011670 



032701 
001001 
000752 
013701 
010102 
JS2702 



055530 
177776 
017110 
000000 
000200 



020070 



36S: 



NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 



ffT34PK3.R4 

R4.TSDB(R5) 

PCUAITF 

T<SR(R5),R1 

fSSN.R2 

R1.R2 

39i 

PC.FATCNK 



ERRSOFT ERRNO.URTERR.PKTSSR 



59$: CKLOOP 



36S 



:R4 s POINTER TO PACKET 
; ISSUE CONNANO 
:WA1T FOR SSR TO SET 
;6ET TSSR CONTENTS 
.SET UP EXPECTED 
:ARE THEY EQUAL 

;BR, IF ALL IS WELL NO PROBLENS 

;1NC AND CHECK FOR NORE THAN 25 ERRORS 

;TSSR INCORRECT AFTER WRITE TAPE 

TRAP CSERSOFT 
.WORD 504 
.WORD WRTERR 
.WORD PKTSSR 
;BR, TO DO NORE CONTROLLED WRITES 
;LOOP ON ERROR IF SELECTED 

TRAP CKLP1 



140005 055530 
176750 

003072 055532 

006654 055556 

055530 

177776 

01 7'. 10 

000000 

000200 



020070 



ISSUE A WRITE COMUND. KEEP 60ING UNTIL TAPE STATUS ALERT 



NOV #140005 J54PK5 

NOV #65000. ,R3 

NOV FREE.T34WB 

NOV #3500.«T54SZ 

NOV #T34PK3,R4 

40$: NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV ISSR(R5>«R1 

NOV #SSR.R2 

CMP R1 ,R2 

BNE 50$ 

DEC R3 

BNE 40$ 

JSR PC.FATCHK 

ERRDF ERRN0,T34ET, PKTSSR 



;UftITE DATA. ACK, CVC*1 

;SfcT MAX NUNBER OF WRITES 

;SET UP WRITE BUFFER ADDRESS 

;SET UP BUFFER SIZE (3.5K BYTES) 

;R4 s POINTER TO PACKET 

; ISSUE CONNAND 

;WAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

;SET UP EXPECTED 

:ARE THEY EQUAL 

;BR, IT NIGHT BE END OF TAPE 

;DEC RECORD COUNTER 

;BR. IF NORE TO 60 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
;EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP CSERDF 
.WORD 505 
.WORD T34ET 
.WORD PKTSSR 



HAVE TAPE STATUS ALERT. NOV CHECK FOR EOT. IF NEITHER KEEP 60IN6 



000004 

055426 
000001 



k$: 
60$: 



BIT 



NOV 
NOV 
JIL 



#BIT2.R1 

60$ 

40$ 

T34BFR«6.R1 
R1.R2 



: CHECK FOR TAPE STATUS ALERT 

;BR. IF SET 

:KEEP GOING 

.PICK UP XSTO 

.SET UP EXPECTED 

.MT TtiP POT NIT ON IN FXPECTED 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 



71 M 0SSS26 

7189 0S3S50 

7190 053332 

7191 053336 
053336 

7192 
7193 
7m 
7195 
7196 
7197 
7198 

7199 053340 

7200 053346 

7201 053354 

7202 053362 

7203 053366 

7204 053372 

7205 053376 

7206 053402 

7207 053406 

7208 053410 
7Z39 053412 

7213 053416 
053416 
053420 
053422 
053424 

7214 053426 
053426 

7215 
7216 
7217 
7218 
7219 
7220 
7221 

7222 053430 

7223 055434 

7224 0S34S6 

7225 053442 

7226 053444 

7227 05S446 

7231 053452 
053452 
0S34S4 
053456 
053460 

7232 053462 
0S3462 

7233 
7234 
7235 
7236 
7237 
7238 
7239 



020102 
001402 

000137 053240 
104406 



N 14 
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CMP R1 .R2 

BEQ 80S 

JMP 40$ 
80S: CKLOOP 



SEQ 181 



:WAS THE BIT ON 
:BR. IF EOT WAS FOUND 
:KEEP LOOKING 
:LOOP IF SELECTED 



TRAP CSCLP1 



ISSUE ONC NORE WRITE AFTER EOT DETECTED 



012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000772 
056316 
011670 

104406 



140005 
003072 
006654 
055530 
177776 
017110 
000000 
100204 



020070 



055530 
055532 
055536 



90S: 



MOV 
MOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



CKLOOP 



/rU0005«T34PK3 

FREE.T34WB 

«3500..T34SZ 

fT34PK3,R4 

R4,TSDB(R5) 

PC.UAITF 

TSSR(R5).R1 

«SC!SSR!BIT2.R2 

R1.R2 

90S 

PC.FATCHK 

ERRN0,T34ET2.PKTSSR 



WRITE DATA, ACK, CVC«1 

SET UP WRITE BUFFER ADDRESS 

SET UP BUFFER SIZE (4K BYTES) 

R4 s POINTER TO PACKED 

ISSUE COMMAND 

WAIT FOR %ik TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF THEY ARE OK 

INC AND CHECK FOR NORE THAN 2S 

WRITE TAPE AT EOT FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 



ERRORS 

TSA 
CSERHRD 
506 
T34ET2 
PKTSSR 

CtCLPI 



013701 055426 
010102 

052702 000001 

020102 

001406 

004757 020070 

104456 
000775 
0S6404 
016354 

104406 



CHECK TO BE SURE EOT IS STILL SET, IT SHOULD BE 



NOV 
NOV 
•IS 
CNP 
BEQ 
JSR 

ERRHRD 



100S: CKLOOP 



T34BFR^6,II1 

R1.R2 

fBlT0.R2 

R1«II2 

100$ 

PCFATCHK 

ERRN0.T34ETN.EXPREC 



:P1CK UP XSTO 
;SET UP EXPECTED 
:SET THE EOT BIT ON IN EXPECTED 
;WAS THE BIT ON 
;8R. IF EOT WAS FOUND 

AND CHECK FOR NORE THAN 25 ERRORS 
(XSTO) NOT SET 

TRAP CSERHRD 
.WORD 507 
.WORD T34ETN 
.WORD EXPREC 

:LOOP IF SELECTED 

TRAP CSCLPI 



;1NC 
:EOT BIT 



NOW ISSUE A WRITE TAPE NARK. STILL BEYOND EOT 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 



N U 

MACRO N1200 29-MAR-83 13:43 PAGE 105-4 



SEQ 1S2 



7240 053464 

7241 053472 

7242 053476 

7243 053502 

7244 053506 

7245 053512 

7246 053516 

7247 053520 

7248 053522 

7252 053526 
053526 
053530 
053532 
053534 

7253 053536 
053536 

7254 
7255 
7256 
7257 
7258 
7259 
7260 

7261 053540 

7262 053544 

7263 053546 

7264 053552 

7265 053S54 

7266 053556 

7270 053562 
053562 
053564 
053566 
053570 

7271 053572 
053572 

7272 
7273 
7274 
7275 
7276 
7277 
7278 

7279 053574 

7280 053602 

7281 053610 

7282 0S36U 

7283 053620 

7284 053624 

7285 053630 

7286 053634 

7287 053636 

7288 053640 
7292 053644 

053644 
053646 
053650 



012737 140011 055530 

012704 055530 

010465 177776 

004737 017110 

016501 000000 

012702 100204 
020102 
001406 

004737 020070 

104456 
000774 
056227 
011670 

104406 



NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



110$: CKLOOP 



013701 055426 
010102 

052702 000001 

020102 

001406 

004737 020070 

104456 
000775 
055652 
016334 

104406 



012737 141410 055530 

012737 000001 055532 

012704 055530 

010465 177776 

004737 017110 

016501 000000 

012702 000200 
020102 
001406 

004737 020070 

104456 
000776 

057213 



#14001 1.T34PK3 

ffT34PK3.R4 

R4.TSDB(R5) 

Pr.yAITF 

TSSn(R5),R1 

fSCtSSR!Bn2.R2 

R1.R2 

110$ 

PC.FATCHK 

ERRN0.T34UTN.PKTSSR 



;URITE TAPE HARK. ACK, CVC'I COHMANO 
;R4 s POINTER TO PACKET 
.'ISSUE COHNAND 
;UAIT FOR SSR TO SET 
:GET TSSR CONTENTS 
.SET UP EXPECTED 
:ARE THEV EQUAL 
;8R. IF STATUS IS GOOD (OK) 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
; WRITE TAPE NARK FARED 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.UORD 

TRAP 



CSERHRD 

508 

T34UTN 
PKTSSR 

CSCLPt 



NOU CHECK TO BE SURE EOT IS STILL SET 



NOV 
NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRD 



120$: CKLOOP 



T34BFR«6.R1 

R1.R2 

«BIT0.R2 

R1.R2 

120$ 

PC.FATCHK 

ERRN0.T34ET0.EXPREC 



;PICK UP XSTO 

;SET UP EXPECTED 

:SET THE EOT BIT ON IN EXPECTED 

;UaS the bit on 

:BR. IF EOT WAS FOUND 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

:EOT BIT (XSTO) NOT SET 



.-LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
509 

T34ET0 
EXPREC 



TRAP C$CLP1 



NOW ISSUE A SKIP TAPE NARK REVERSE RIGHT BACK INTO THE JUST WRITTEN TN 



NOV f141410.T34PK3 

NOV f1.T34WB 

NOV fT34PK3.R4 

NOV R4.TS0B(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV «SSR.R2 

CNP R1.R2 

BEQ 130$ 

JSR PC.FATCHK 

ERRHRD ERRNO,T34STN.PKTSSR 



.•SKIP TAPE NARK REVERSE ACK.CVC-1 CONNAND 

;SET NUNBER (1) OF TNS TO SKIP 

;R4 s POINTER TO PACKET 

; ISSUE CONNAND 

;WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

:BR. IF STATUS IS GOOD (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:SKIP TAPE NARK REVCRSE FAILED 

TRAP CSERHRD 
.WORD S10 
JiORD liiiUl 



D 17 



CZTUZAO TU80 FRONT END PRT 0 
TEST S: OPERATIONS AT EOT 
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SEQ 183 



0536S2 
7293 053654 
053654 

7294 
7295 
7296 
7297 
7298 
7299 
7300 

7301 053656 

7302 053662 

7303 053664 

7304 053670 

7305 053672 

7306 053674 

7310 053700 
053700 
053702 
053704 
053706 

7311 053710 
053710 

7312 
7313 
7314 
7315 
7316 
7317 
7318 

7319 053712 

7320 053716 

7321 053720 

7322 053724 

7323 0SS726 

7324 0SS730 

7328 053734 
053734 
053736 
053740 
053742 

7329 053744 
0SS744 

7330 
7331 
7332 
7333 
7334 
7335 
7336 

7337 053746 

7338 053754 

7339 053762 

7340 053766 

7341 053772 

7342 053776 

7343 054002 



011670 
104406 



130S: 



CKLOOP 



:LOOP IF SELECTED 



.WORD 
TRAP 



PKTSSR 
CSCLP1 



EOT SHOULD STILL BE SET 



013701 055426 
010102 

052702 000001 

020102 

001406 

004737 020070 

104456 
000777 
057307 
016334 

104406 



NOV 
NOV 
BIS 
CMP 
BEQ 
JSR 



T34BFR«6.R1 

R1.R2 

ffBIT0,R2 

R1.R2 

1408 

PC.FATCHK 



ERRHRO ERRN0.T34STE.EXPREC 



.•PICK UP XSTO 
;SET UP EXPECTED 
;SET THE E^T BIT ON IN EXPECTED 
;WAS THE BIT ON 
;BR. IF EOT WAS FOUND 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
.EOT BIT (XSTO) NOT SET 



140$: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 

511 

T34STE 
EXPREC 



TRAP CSCLP1 



013701 055426 
010102 

052702 100000 

020103 

001406 

004737 020070 

104456 
001000 
056637 
016334 

104406 



THE TNK BIT SHOULD BE SET ALSO 



NOV 
NOV 
BIS 
CHP 
BEQ 
JSR 
ERRHRD 



150$: CKLOOP 



T34BFRf6.R1 

R1.R2 

fBni5,R2 

R1.R2 

150$ 

PC.FATCNK 

ERRN0«T34TNK. EXPREC 



;PICK UP XSTO 
;SET UP EXPECTED 
;SET THE TMC BIT ON IN EXPECTED 
;WAS THE BIT ON 
;BR. IF TNK WAS FOUND 
;INC AND CHECK FOR NORE THAN 25 ERRORS 
;THK (XSTO) NOT SET 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 

512 

T34Tmi 
EXPREC 



TRAP C$CLP1 



ISSUE SPACE RECORDS REVERSE FOR 1 RECORD. STILL BEYOND EOT 



012737 140410 055530 

012737 000001 055532 

012704 055530 

010465 177776 

004737 017110 

016501 000000 

012702 100204 



NOV ff140410 j34PK3 

NOV «1.T34WB 

NOV fTS4PK3,R4 

NOV R4,TSOB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

NOV fSCysSRlBIT2.R2 



: SPACE RECORDS REVERSE. ACK« CVC^I CHD 

: SPACE ONE RECORD REVERSE 

:R4 ' POINTER TO PACKET 

.•ISSUE CONNAND 

;WAIT FOR SSR TO SET 

:GET TSSR CONTENTS 

.SfT UP §XPeCT» 



CZTUZAO TU80 FRONT END PRT 0 
TEST 5: OPERATIONS AT EOT 



054006 

7345 054010 

7346 054012 

7350 054016 
054016 
054020 
054022 
054024 

7351 054026 
054026 

7352 
7353 
7354 
7355 
7356 
7357 
7358 

7359 054030 

7360 054034 

7361 054036 

7362 054042 

7363 054044 

7364 054046 

7368 054052 
054052 
054054 
054056 
054060 

7369 054062 
054062 

7370 
7371 
7372 
7373 
7374 
7375 
7376 

7377 054064 

7378 054070 

7379 054072 

7380 054076 

7381 054100 

7382 0S4102 

7386 054106 
054106 
054110 
054112 
054114 

7387 054116 
054116 

7388 
7389 
7390 
7391 
7392 
7393 



020102 
001006 
004737 

104456 
001001 
055564 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001002 
056467 
016334 

104406 



013701 
010102 
042702 
020102 
001406 
004737 

104456 
001003 
057403 
016334 

104406 



020070 



C 15 
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CMP R1.R2 

BNE 160$ 

JSR PCJATCHK 

ERRHRO E«RN0.T34P0S,PKTSSR 



160S: CKLOOP 



SEO 184 



:ARE THEY EQUAL 

;BR, IT MIGHT BE END OF TAPF 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

; SPACE RECORDS REVERSE FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 



CtERHRD 
513 

T34P0S 
PKTSSR 



CSCLPI 



055426 
000001 

020070 



EOT SHOULD STILL BE SET 



MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



163$: CKLOOP 



T34BFR^6.R1 

R1,R2 

fBIT0.R2 

R1.R2 

163$ 

PC.FATCHK 

ERRN0,T34ETS.EXPREC 



PICK UP XSTO 
SET UP EXPECTED 
SET THE EO* BIT ON IN EXPECTED 
WAS THE BIT ON 

IF EOT WAS FOUND 

CHECK FOR MORE THAN 25 ERRORS 
(XSTO) NOT SET 

TRAP 
.WORD 
.yORO 
.WORD 

LOOP IF SELECTED 

TRAP 



;6R. 

;INC 

;EOT BIT 



CSERHRD 

514 

T34ETS 
EXPREC 



C$CLP1 



HOWEVER. THE TMK BIT SHOULD NOW BE CLEAR 



055426 
100000 

020070 



MOV 
MOV 
BIC 
CMP 
BEQ 
JSR 

ERRHRD 



165$: CKLOOP 



T54BFR«6.R1 

R1.R2 

fBIT15.R2 

R1.R2 

165$ 

PC.FATCHK 

ERRN0.T34TMN.EXPREC 



.-PICK UP XSTO 
.-SET UP EXPECTED 

; CLEAR THE TMK BIT ON IN EXPECTED 

;WAS THE BIT ON 

;BR. IF TMK WAS FOUND 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•COULD NOT CLEAR TMK (ZSTO) 

TRAP C$ERHRD 

.WORD 515 

.WORD T34TMM 

.WORD EXPREC 

:LOCP Ii SELECTED 

TRAP C$CLP1 



NOV SPACE 3 RECORDS IN REVERSE 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 



D 15 
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SEO 18S 



7395 05A120 

7396 054126 

7397 054134 
7598 054140 

7399 054144 

7400 054150 

7401 054154 

7402 054160 

7403 054162 

7404 054164 

7408 054170 
054170 
054172 
054174 
054176 

7409 054200 
054200 

7410 
7411 
7', 12 
7413 
7414 
7415 
7416 

7417 054202 

7418 054206 

7419 054210 

7420 054214 

7421 054216 
7425 054220 

054220 
054222 
054224 
054226 

7426 

7427 054230 
054230 

7428 
7429 
7430 
7431 
7432 
7433 
7434 

7435 054232 

7436 054240 

7437 054246 

7438 054252 

7439 054256 

7440 054262 

7441 054266 

7442 054272 

7443 054274 

7444 054276 
7448 054302 

054S02 
054504 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001004 
055564 
011670 

104406 



013701 
010102 
042702 
020102 
001404 

104456 
001005 
056043 
011670 



104406 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001006 



U3410 055530 

000003 055532 

055530 

177776 

017110 

000000 

000200 



020070 



MOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



167$: CKLOOP 



«U0410J34PK3 

«3.T34UB 

IT34PK3«R4 

R'*.TSDB(R5) 

PC«yAITF 

TSSR(R5),R1 

«SSR.R2 

R1.R2 

167S 

PC»FATCHK 

ERRN0,T34P0S.PICTSSR 



; SPACE RECORDS REVERSE, ACK, CVC-1 CND 

.-SPACE THREE RECORD REVERSE 

;R4 « POINTER TO PACKET 

; ISSUE CONNAND 

.-WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

.-SET UP EXPECTED 

;ARE THEV EQUAL 

;BR, IT NIGHT BE END OF TAPE 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.-SPACE RECORDS COMMAND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

.-LOOP IF SELECTED 

TRAP 



CSERHRD 

516 
T34P0$ 
PKTSSR 



CSCLP1 



NOW TNE EOT BIT SHOULD BE CLEAR 



055426 
000001 



MOV 
MOV 
BIC 
CMP 
BEQ 
ERRHRD 



T34BFR*6.R1 

R1.R2 

fBIT0,R2 

R1,R2 

170$ 

ERRN0«T34ETC,PKTSSR 



;PICK UP XSTO 
;SET UP EXPECTED 

.-CLEAR THE EOT BIT ON IN EXPECTED 

i^hS THE BIT OFF 

.-BR. IF EOT WAS FOUND 

.-UNABLE TO CLEAR EOT INDICATION 

TRAP C$ERHRD 
.WORD 517 
.WORD T34ETC 
.WORD PKTSSR 



170$: CKLOOP 



.•LOOP IF SELECTED 



TRAP 



CSCLPl 



140010 055530 

000004 055532 

055530 

177776 

017110 

000000 

000200 



020070 



NOW SPACE 4 RECORDS FORWARD. ONCE AGAIN OVER EOT MARKER 



NOV f140010.T34PK3 

MOV f4,T34WB 

MOV fT34PK3.R4 

NOV R4.TSDB(R5) 

JSR PC.WAITF 

NOV TSSR(R5).R1 

MOV tSSR.R2 

CMP R1.R2 

BEQ 190$ 

JSR PC.FATCHK 

ERRHRD ERRNO.T34POS.PKTSSR 



:SPACE RECORDS FORWARD. ACK. CVC=1 

; SPACE FOUR RECORDS 

:R4 s POINTER TO PACKET 

; ISSUE COMMAND 

.-WAIT FOR SSR TO SET 

;GET TSSR CONTENTS 

.-SET UP EXPECTED 

.-ARE THEY EQUAL 

.-BR. IT NIGHT BE END OF TAPE 

.-INC AND CHECK FOR MORE THAN 25 ERRORS 

; SPACE RECORDS COMMAND FAILED 

TRAP C$ERHRD 
JIQRD. 5ia. 



CZTUZAO TU80 FRONT END PRT 0 
TEST S: OPERATIONS AT EOT 



054306 
054310 
74A9 054312 
054312 

7450 
7451 
7452 
7453 
7454 
7455 
7456 

7457 054314 

7458 054320 

7459 054322 

7460 054326 

7461 054330 

7462 054332 

7466 054336 
054336 
054340 
054342 
054344 

7467 054346 
054346 

7468 
7469 
7470 
7471 
7472 
7473 
7474 

7475 054350 

7476 054356 

7477 054364 

7478 054370 

7479 054374 

7480 054400 

7481 054404 

7482 054410 

7483 054412 

7484 054414 

7488 054420 
054420 
054422 
054424 
054426 

7489 054430 
054430 

7490 
7491 
7492 
7493 
7494 
7495 

7496 054432 

7497 054U0 

7498 0S4446 



055564 
011670 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
001007 
056467 
016334 

104406 



012737 
013737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001010 
055742 
011670 

104406 



012737 
013737 
012704 



E 15 

MACRO HI 200 29-NAR-83 13:43 FACE 105-8 



190$: CKLOOP 



SEO 186 



;LOOP IF SELECTED 



.WORD 
.WORD 



T34P0S 
PKTSSR 



TRAP CSCLP1 



055426 
000001 

020070 



ONCE AGAIN THE EOT INDICATION SHOULD BE SET IN XSTATO 



NOV 


T34BFR«6.R1 


.•PICK UP XSTO 


NOV 


R1.R2 


:SET UP EXPECTED 


BIS 


ffBIT0,R2 


;SET THE EOT BIT ON IN EXPECTED 


CUP 


R1.R2 


;UAS THE BIT ON 


BEQ 


200$ 


;BR. IF EOT WAS FOUND 


JSR 


PC.FATCHK 


:INC AND CHECK FOR NORE THAN 25 


ERRHRD 


ERRN0,TS4ETS.EXPREC 


:EOT BIT (XSTO) NOT SET 



200$: CKLOOP 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.UORD 



ERRORS 

CSERHRD 
519 

T34ETS 
EXPREC 



TRAP C$CLP1 



NOW ISSUE A READ REVERSE COfWANO 



140401 
003072 
055530 
177776 
017110 
000000 
000200 



020070 



055530 
0SSSS2 



NOV 

mv 

NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRHRD 



205$: CKLOOP 



#140401 .TS4PK3 

FREE«T34ra 

#TS4PK3,R4 

R4.TSDB(RS) 

PCUAITF 

TSSR(RS).R1 

fSSR.R2 

R1.R2 

20i% 

PC.FATCHK 

ERRN0.T34RRE. PKTSSR 



:READ REVERSE. ACK. CVC-1 

:SET UP URITE BUFFER ADDRESS 

:R4 « POINTER TO PACKET 

.•ISSUE CONNAND 

;UAIT FOR SSR TO SET 

;6ET TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

;BR. ONLY SSR IS SET 

:1NC AND CHECK FOR NORE THAN 25 ERRORS 

.'READ REVERSE CONNAND FAILED 

TRAP 
.WORD 
.UORD 
.UORD 

;LOOP IF SELECTED 

TRAP 



CSERHRD 

520 

T34RRE 
PKTSSR 



CSCLPI 



140401 055530 
003072 055532 
05SS30 



NOU ISSUE A READ REVERSE CONNAND 



NOV f1 40401, T34PK3 
NOV FREE.T34RB 
NOV fT34PK3,R4 



.-READ REVERSE. ACK. CVC^I 
.-SET UP URITE BUFFER ADDRESS 
.BA r pnillTM TO PACKM 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 



F T5 

MACRO m200 29-nAR-83 13:43 PAGE 10S-9 



SEO 187 



7499 0S44S2 

7500 0S44S6 

7501 054462 

7502 054466 

7503 054472 

7504 054474 

7505 054476 

7509 054502 
054502 
054504 
054506 
054510 

7510 054512 
054512 

7511 
7512 
7513 
7514 
7515 
7516 

7517 054514 

7518 054522 

7519 054530 

7520 054536 

7521 054542 

7522 054546 

7523 054552 

7524 054556 

7525 054562 

7526 054564 

7527 054566 

7531 054572 
054572 
054574 
054576 
054600 

7532 054602 
054602 

7533 054604 

7534 054612 

7535 054620 

7536 054626 

7537 054632 

7538 054636 

7539 054642 

7540 0S4646 

7541 054652 

7542 054654 

7543 054656 

7547 054662 
054662 
054664 
054666 
054670 

7548 054672 
054672 

7549 



010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001011 
055742 
011670 

104406 



012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001012 
057466 
011670 

104406 
012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001013 
057466 
011670 

104406 



177776 
017110 
000000 
000200 



020070 



NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHRO 



210S: CKLOOP 



R4«TSDB(RS) 

PCUAITF 

TSSR(RS).R1 

f<SR.R2 

R1.N2 

210$ 

PC.FATCHK 

ERRN0,T34RRE.PKTSSR 



.-ISSUE CONNAND 

;WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEY EQUAL 

:BR, IT NIGHT BE END OF TAPE 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

; SECOND READ REVERSE CONNAND FAILED 

TRAP CtERHRD 

.WORD 

.WORD 

.WORD 

.LOOP IF SELECTED 

TRAP 



521 
T3ARRE 
PKTSSR 



CSCLPI 



NOU ISSUE A READ CONNAND 



140001 055530 
003072 055532 
006654 055536 
055530 
177776 
017110 
000000 
000200 



020070 



140001 055530 
003072 055532 
006654 055536 
055530 
177776 
017110 
000000 
000200 



020070 



NOV 
NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 
ERRHRO 



230$: CKLOOP 

NOV 
NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEO 
JSR 

ERRHRO 



235$: CKLOOP 



#140001 .T34PK3 

FREE.T34R6 

f3506..T34SZ 

fT34PK3,R4 

R4.TS0a(R5) 

PC.UAITF 

TSSR(R5).R1 

fSSR.R2 

R1.R2 

236$ 

PC.FATCHK 

ERRN0.T34RRF .PKTSSR 



#140001. T34PKS 

FREE.T34RB 

#3500..T34SZ 

#T34PK3.R4 

R4.TSDB(RS) 

PC.UAITF 

TSSR(R5).R1 

#SSR.R2 

R1.R2 

235$ 

PC.FATCHK 

ERRN0.T34RRF .PKTSSR 



.•READ DATA. ACK. Cv'C-l 

;SET UP WRITE BUFFER ADDRESS 

;SET UP BUFFER SIZE (3.5K BYTES) 

;R4 - POINTER TO PACKET 

.•ISSUE CONNAND 

.•WAIT FOR SSR TO SET 

;GfcT TSSR CONTENTS 

:SET UP EXPECTED 

;ARE THEY EQUAL 

:BR. IT NIGHT BE END OF TAPE 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

:READ FORWARD CONNAND FAILED 

TRAP CSERHRD 
.WORD 522 
.WORD T34RRF 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP C$CLP1 

READ DATA. ACK. CVC^I 

SET UP WRITE BUFFER ADDRESS 

SET UP BUFFER SIZE (3.5K BYTES) 

R4 s POINTER TO PACKET 

ISSUE CONNAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IT NIGHT BE END OF TAPE 

INC AND CHECK FOR NORE THAN 25 ERRORS 

SECOND READ FORWARD FAILED 

TRAP CSERHRD 
.WORD 523 
.WORD TS4RRF 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP CSCLP1 



CZTUZAO TU80 FRONT END PRT 0 
TEST S: OPERATIONS AT EOT 

7550 
7551 
7552 
7553 
7554 
7555 

7556 054674 013701 055426 

7557 054700 010102 

7558 054702 052702 000001 

7559 054706 020102 

7560 054710 001406 

7561 054712 004737 020070 

7565 054716 
054716 104456 
054720 001014 
054722 056SSS 
054724 016334 

7566 054726 
054726 104406 

7567 
7568 
7569 
7570 
7571 
7572 
7573 

7574 054730 012737 

7575 054736 012737 

7576 054744 012704 

7577 054750 010465 

7578 054754 004737 

7579 054760 016501 

7580 054764 012702 

7581 054770 020102 

7582 054772 001406 

7583 054774 004737 

7587 055000 
055000 104456 
055002 001015 
055004 055564 
055006 011670 

7588 055010 
05S010 10U06 

7589 
7590 
7591 
7592 
7593 
7594 
759$ 

7596 055012 013701 055426 

7597 05S016 010102 

7598 055020 042702 000001 

7599 055024 020102 

7600 055026 001406 

7601 C55030 004737 020070 
7605 055034 



6 IS 

HACRO HI 200 29-nAR-83 13t43 PA6E 105*10 



SEQ 188 



THE EOT BIT SHOULO HAVE REMAINED SET 



NOV 
MOV 
BIS 
CMP 
BEQ 
JSR 

ERRHRD 



240S: CKLOOP 



T34BFR*6,R1 

R1,R2 

fBIT0.R2 

R1.R2 

240S 

PC.FATCHK 

ERRNO.T34ErZ.EXPREC 



;PICK UP XSTO 
:SET UP EXPECTED 
;SET THE EOT BIT ON IN EXPECTED 
;UAS THE BIT ON 
:BR. IF EOT WAS FOUND 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;EOT BIT (XSTO) NOT SET 



:LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
524 

T34ETZ 
EXPREC 



TRAP CSCLP1 



NOW ISSUE A SPACE RECORDS REVERSE FOR 5 RECORDS 



140410 055530 
000005 055532 
055530 
177776 
017110 
000000 
000200 



020070 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



250S: CKLOOP 



«140410.T34PK3 

#5.T34RB 

#T34PK3,R4 

R4JS0B(R5) 

PC^WAITF 

TSSR(RS).R1 

fSSR.R2 

R1.R2 

250f 

PCFATCHK 

ERRN0.T34P0S*PKTSSR 



.-SPACE RECORDS REVERSE, ACK. CVC-1 CND. 
;NUHBER OF RECORDS TO SPACE 
:R4 « POINTER TO PACKET 
: ISSUE COMMAND 
.•WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
; SET UP EXPECTED 
:ARE THEY EQUAL 
;8R. IT MIGHT BE END OF TAPE 
:INC AND CHECK FOR MORE THAN 25 ERRORS 
;SPACE 5 RECORDS REVERSE COMMAND FAILED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
525 

T34POS 
PKTSSR 



TRAP CtCLPI 



EOT SHOULD BE CLEAR AS WE ARE NOW IN FRONT OF EOT 



MOV 
MOV 
BIC 
CMP 
BEQ 
JSR 



T34BFR«6.R1 

R1.R2 

ff6IT0.R2 

R1.R2 

260S 

PC.FATCHK 



ERRHRD ERRN0.T34ETC.EXPREC 



:PICK UP XSTO 
;SET UP EXPECTED 

: CLEAR THE EOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

:BR. IF EOT WAS FOUND 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.♦EOT BIT (XSTO) NOT CLEAR 



C2TUZA0 TU80 rRONT END PRT D 
TEST 5: OPERATIONS AT EOT 



H IS 

NACRO N1200 29-NAR-83 IS: AS PAGE lOS-ll 



SEQ 189 



0SS034 
0SS0S6 
OSSOAO 
0SS042 
7606 0S50A4 
0SSO44 

7607 
7608 
7609 
7610 
7611 
7612 
7613 

76U 055046 

7615 055054 

7616 055062 

7617 055066 

7618 055072 

7619 05S076 

7620 055102 

7621 055106 

7622 055110 

7623 055112 

7627 055116 
055116 
055120 
055122 
055124 

7628 055126 
055126 

7629 
7630 
7631 
7632 
7633 
7634 
7635 

7636 055130 

7637 055134 

7638 055136 

7639 055142 

7640 055144 

7644 055146 
055146 
055150 
0SS1S2 
0SS154 

7645 055156 
055156 

7646 
7647 
7648 
7649 
7650 
7651 

7652 055160 

7653 0SS166 



104456 
001016 
056043 
016SS4 

104406 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001017 
055564 
011670 

104406 



013701 
010102 
052702 
020102 
001404 

104456 
001020 
056467 
011670 

104406 



012737 
012757 



260t: CKLOOP 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 
526 
T34EfC 
EXPREC 



140010 055530 

000005 055532 

055530 

177776 

017110 

000000 

000200 



020070 



TRAP CtCLPI 



NOW SPACE FORWARD 5 RECORDS AGAIN 



NOV 
NOV 
NOV 
NOV 
JSR 
NOV 
NOV 
CNP 
BEQ 
JSR 

ERRNRD 



270S: CKLOOP 



f140010.T34PK3 

f5.T34R8 

fT34PK3.R4 

R4,TS0B(R5) 

PC.WAITF 

TSSR(R5),R1 

fSSR,R2 

R1.R2 

270S 

PC.FATCHK 

ERRN0.T34P0S.PKTSSR 



: SPACE RECORDS FORWARD, ACK. CVC^I CHD 

:NUNBER OF RECORDS TO SPACE 

;R4 s POINTER TO PACKET 

: ISSUE COMNAND 

.-WAIT FOR SSR TO SET 

:6ET TSSR CONTENTS 

;SET UP EXPECTED 

;ARE THEV EQUAL 

;8R. IT NIGHT BE END OF TAPE 

;INC AND CHECK FOR NORE THAN 25 ERRORS 

.•SPACE RECORDS FORWARD CONHANO FAILED 



.•LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
527 
T34P0S 
PKTSSR 



TRAP CKLPI 



EOT SHOULD BE SET AGAIN 



055426 
000001 



• 

MOV 


T34BFR»6,R1 


.'PICK UP XSTO 


NOV 


R1.R2 


;SET UP EXPECTED 


BIS 


fBIT0«R2 


;SET THE EOT BIT ON IN EXPECTED 


CNP 


R1,R2 
2808 


:WAS THE BIT ON 


BEQ 


:BR. IF EOT WAS FOUND 


ERRHRD 


ERRN0,T34ETS«PKTSSR 


:EOT FAILED TO SET AFTER SPACE CND. 

TRAP CSERHRO 
.WORD 528 
.WORD T34ETS 


2808: CKLOOP 




.WORD PKTSSR 




;LOOP IF SELECTED 

TRAP CSCLP1 



NOW ISSUE A SKIP FILE NARKS REVERSE CQNNAND, BUT WE KNOW THAT 
THERE AREN'T ANY THERE SO UE SHOULD RUN INTO BOT 



141410 055530 
000005 0S5S52 



NOV f141410.T54PK5 



;SKIP FILE NARKS REVERSE. ACK.CVCsl CONNAND 
Of fill HABKS 



CZTUZAO TU80 FRONT END PRT 0 
TEST 5: OPERATIONS AT EOT 



1 IS 

HACRO nmo 29-MAR-85 13:45 PAGE 10S-12 



SEQ 190 



7654 055174 

7655 055200 

7656 055204 

7657 055212 

7658 055216 

7659 055222 

7660 055226 

7661 055250 
055250 
055254 
055256 
055242 
055244 
055250 
055252 
055256 

7662 055260 
7665 055264 

7664 055266 

7665 055272 

7666 055274 

7667 055276 

7668 055500 
7672 055504 

055504 
055506 
055510 
055512 

7675 
7674 
7675 
7676 
7677 

7678 055514 
055514 

7679 055516 

7680 055522 

7681 055524 

7682 055550 
7685 055552 
7684 055554 

7688 055540 
055540 
055542 
055544 
055546 

7689 055550 
055550 

7690 055552 
055552 
055552 

7691 055554 

7692 055560 
7695 055562 
7694 055566 

055566 
055570 



012704 
010465 
012757 
004757 
016501 
052701 
001017 

012727 
000000 
015727 
000000 
005567 
001575 
005567 
001567 
005557 
001552 
012702 
020102 
001407 
005505 
004757 

104456 
001021 
057540 
011670 



104406 
015701 
010102 
052702 
020102 
001406 
004757 

104456 
001022 
056120 
016554 

104406 



104405 
004757 
105002 
000157 

104452 
002404 



055550 
177776 
176750 
017110 
000000 
000200 



000250 
002116 
177772 
177756 
055544 
100204 

020070 



055544 



285$: 



055426 
000002 

020070 



017544 
052706 



HOV 
NOV 
NOV 
JSR 
NOV 
BIT 
BNE 
DELAY 



fT54PK5,R4 

R4.TSDB(II5) 

#65000. ,T54DLV 

P''.WAITf 

TS$N(R5),R1 

fSSR.RI 

2861 

250 



R4 > POINTER TO PACKET 
ISSUE CONNANO 
SET UP DELAY COUNTER 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
CHECK FOR SSR SET 
BR. WHEN SSR IS SET 
WAIT ABOUT .25 SECONDS 



286S: 



DEC 
BNE 
NOV 
CNP 
BEQ 
DEC 
JSR 
ERRHRD 



T54DLY 
28SS 

fSSR!SC!BIT2.R2 

R1.R2 

500$ 

R5 

PC.FATCHK 

ERRNO.T54UOL.PKTSSR 



NOV 

.WORD 

NOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



«250.(PC)» 
0 

L$DLV,(PC)* 

0 

-6(PC) 
.-4 

-22<PC) 
.-20 



BUNP COUNTER 
BR, IF NORE TO COUNT 
SET UP EXPECTED TAPE STATUS ALERT 
ARE THEY EQUAL 
BR, IT NIGHT BE END OF TAPE 
DEC RECORD COUNTER 

INC AND CHECK FOR NORE THAN 25 ERRORS 
SKIP FILE HARK REVERSE CND. FAILED 



TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
529 
T54W0L 
PKTSSR 



THE BOT INDICATION BETTER BE SET 



§00$: CKLOOP 

NOV 
HOV 
BIS 
CHP 
BEQ 
JSR 

ERRHRD 



T54BFR«6,R1 

R1.R2 

ffBIT1.R2 

R1.R2 

520$ 

PC.FATCHK 

ERRNO.T54BOT.EXPREC 



520$: 
600$: 



16^$: 



CKLOOP 
ENDSUB 



JSR 
BCC 
JHP 
EXIT 



PC.TSTLOOP 
16h 
T54L00P 
TST 



.-LOOP IF SELECTED 

TRAP C$CLP1 

.•PICK UP XSTO 

;SET UP EXPECTED 

;SET THE BOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

:BR. IF BOT WAS FOUND 

:INC AND CHECK FOR NORE THAN 25 ERRORS 

;BOT NOT SET AFTER SPACE CND. 

TRAP 
.WORD 
.WORD 
.WORD 

;LOOP IF SELECTED 

TRAP 

;»»»»»» END SUBTEST »»»»»» 
L10060: 

TRAP 

:D0 WE NEED TO ITERATE TEST 
;BR. IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 
:ALL DONE THIS TEST 

TRAP 

JiQBD 



CSERHRD 
550 
T34B0T 
EXPREC 

C$CLP1 



C$ESUB 



C$EXiT 
L1QQS7-. 



CZTUZAO TU80 FRONT END PRT D 
TEST 5: OPERATIONS AT EOT 
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SEQ 191 



> OtO 






;♦ 






7M7 






:LOCAL STORAGE FOR THIS TEST 


9 OTO 












7700 








.BLKB 




770? 






T34PACKET: 




770^ 




100004 




.WORD 


1 00004 

1 WW VV"t 


7704 
ff ff 




055410 




.WORD 


T54DATA 


7705 

ff ffw^ 


055404 


000000 

VWvvw 




.WORD 


0 


7706 

ff ff WW 


Q5540& 


000010 

www 1 w 




.WORD 


8. 


7707 


055410 




T34DATA: 






770A 

ff ff WO 




05542D 




.WORD 


T34BFR 


7709 

ff ff wr 


0SS412 


000000 

WWWWWW 




.WORD 


0 


7710 

ff ff 1 V 


055414 


000012 

WW 1 & 




.WORD 


10. 


7711 

ff ff 1 1 


055416 


000000 

www 




.WORD 


0 


7712 

ff • ■ fc 


055420 

V^^~ftW 




T34BFR: 


.BLKW 


25. 


7715 

ff r t 4^ 






• 






7714 






.-WRITE SUBSYSTEM MEMORY COMMAND 


7715 

ff f 1 * 






• 






7717 

ff ff ■ ff 


055502 






.BLKB 


10-<.-TUV2At7> 


7719 

ff ff ff y 


055510 




T34PK2: 






7720 

ff ff fcV 


055510 


100006 

1 WW www 




.WORD 


100006 


7721 


055512 


055546 




.WORD 


T34BF2 


7722 


0SSS14 

V^'^ ff ^ 


000000 

www 




.WORD 


0 


7725 


055516 


000006 

WWW 




.WORD 


6. 


7724 

ff ff 










10-<.-TUV2A|7> 


7726 

ff ff fcV 


055520 






.BLKB 


7728 

* ff ft V 


055550 




T34PK3: 




100005 


7729 

ff ff ft^ 


055550 


100005 

1 WW^ 


T34Re: 


.WORD 


7750 

ff ff 


055552 

V^^^^ft 








7751 

ff ff ^ • 


055552 


000000 

WWWWWW 


T34UB: 


.WORD 


0 


7752 


055554 


000000 

WWWWWW 




.WORD 


0 


7755 

ff ff 


0SSS56 


000000 

www 


T34SZ: 


.WORD 


0 


775A 

ff ff 








.EVEN 




7755 

ff ' 






• 

T34RSZ: 






7756 

ff ff 


055540 


000000 

WWWWWW 


.WORD 


0 


7757 

ff » J' 


055542 


000000 

WWWWWW 


T34CNT: 


.WORD 


0 


7758 

» ff 


055544 


000000 

WWWWWW 


T34DLY: 


.WORD 


0 


7759 

ff ff w y 






• 
• 






7740 

ff ff ~ V 






• 

T34BF2: 






7741 

ff ff ^ • 


055546 








7742 


055546 


010 

w ■ w 


T34BS0: 


.BYTE 


10 


7741 

f ff 


055547 


200 

ftWW 


T348S1: 


.BYTE 


200 


7744 

ff ff 


055550 


000000 

WWWWWW 


T34S2: 


.WORD 


0 


7745 

ff ff ^ ^ 


055552 


000000 

WWWWWW 


T34S3: 


.WORD 


0 


7746 

ff ff 






• 






7747 

ff ff ^ ff 






• 
• 






7748 

• ff 1 w 








.EVEN 




7749 






.TAPE NOTION PACKET COMMAND VAL 


7750 










100005 


7751 


055554 


100005 


T34WD: 


.WORD 


7752 


055556 


100405 


T34yDR: 


.WORD 


10040S 


7753 


055560 


102005 


T34C0N: 


.WORD 


102005 


7754 


0)5562 


177777 




.WORD 


177777 


7755 












7756 













.-COMMAND PACKET FOR TEST 

;WRITE CHARACTERISTICS COMMAND, WITH ACK 

.ADDRESS OF CHARACTERISTICS BLOCK 

;STARTIN6 VALUE OF BLOCK SIZE 
: CHARACTERISTICS DATA BLOCK 
jADDRESS OF MESSAGE BUFFER 

.•LENGTH OF MESSAGE BUFFER 

.•MESSAGE BUFFER 



.WRITE SUB SYS MEM COMMAND. AND ACK 
.•ADDRESS OF SELECT BLOCK DATA 

.-SIZE OF DATA PACKET 



WRITE COMMAND. AND ACK 
ADDRESS OF WRITE/READ BUFFER 
SIZE OF BUFFER (EXTENT) 



LARGEST TAPE RECORD IN BYTES 
TAPE RECORD COUNTER 
DELAY COUNTER 



BSEIO AREA 
BSEL1 AREA 
SEL 2 AREA 
DATA AREA 



.•WRITE DATA (NEXT) 
;WRITE DATA RETRY 
: WRITE CONTINOUS 
;END OF DATA 



CZTUZAO TU80 FRONT END PRT D 
TEST S: OPERATIONS AT EOT 
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SEQ 192 



r r70 








77CQ 








77AA 
f row 








1 r Ol 








77<k9 
r f Oc 
















771^ n«<^ 






19t 

ICJ 


77A< 


157 


199 
Ice 


111 

III 


77AA AC<7^9 


199 
Ice 


1 AC 


ini 


77A7 ACAA^'V 


19( 


KA 
I30 


1^1 
I* 1 


• OO V90ICW 


193 


1(3 


1(1 

1 3 1 


77M OSA977 

f rOT V70CC' 


197 


199 
ICC 


111 

III 


7770 

r r fu W90J lo 


197 


199 
Ice 


111 

III 


7771 0^M04 


197 


199 
1 cc 


111 

III 


7779 Q^kUAl 


193 


190 
1 cv 


101 
Ivl 




199 


10( 


101 
Iwl 


777A 0MA17 


190 


117 


193 

1 C J 


7775 056745 


10S 


117 


194 
i c^ 


7776 0(7034 


197 


Ifcfc 


111 

III 


7777 








7778 057112 


117 




145 


7779 0S7134 


194 


123 


123 

V fc J 


7780 057213 


194 


123 

1 fc J 


123 

1 fcW 


7781 0573C7 


105 


117 


194 

• fc^ 


7782 057403 

7783 057/^' 


125 


156 


141 

1^ ■ 


124 


123 


123 


7784 057540 




123 

1 fc J 


123 


7785 








7786 








7787 








7788 








7789 








7790 








7791 








7792 








7793 0S76U 








7794 057614 








7795 057620 


012701 


055400 




7796 057624 


012721 


100004 




7797 057630 


012721 


055410 




7798 057634 


005021 






7799 0(7636 


012721 


000012 

WW i fc 




7800 057642 


012721 

Vice* 


055420 




7801 057646 


005021 






7802 057650 


012721 

V V fc * * 1 


000024 

VWVfc^ 




7803 057654 


005021 

WWfc V 






7804 057656 


012711 

V V fc > ■ ■ 


000000 

www 




7805 057662 


012702 

V 1 fc r Vfc 


000030 

WW JV 




7806 C57666 


012762 

V V fc • vfc 


177777 


055420 


7807 057674 


005742 






7808 057676 


020227 


000000 




7809 057702 


001371 






7810 057704 


000207 






7811 








7812 








7813 057706 

7814 057706 















; LOCAL TEXT MESSAGES FOR TEST 



T34P0S: 

T34ET0: 

T34RRE: 

T34ETC: 

T34B0T: 

T34UTN: 

T34ET2: 

T34ETN: 

T34ETS: 

T34ETZ: 

T34THK: 

T34ET: 

T34E0T: 

TST34I0: 

T34RUN: 

T34STN: 

T34STE: 

T34TMN: 

T34RRF: 

T34II0L: 



;♦ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



TSSR Incorrect Afttr Position (SPACE RECORDS) CoMiand' 

WRITE TAPE NARK Beyond EOT Falltd To Stt EOT Bit (XSTO)' 

READ REVERSE Comtand At EOT D1dn*'t Givt NorMl Tiralnatlon (TSSR)* 

Unablt To Cltar EOT Indication, (XSTO) Bit 0* 

Skip Flit Nark Rtvtrst (ovtr tntlra tapt) Palltd To Stt BOT (XSTO) Bit' 

yRITE TAPE NARK At EOT Falltd To Stt Tapt Status Altrt' 

WRITE DATA Btyond EOT Falltd To Stt Tapt Status Altrt* 

WRITE DATA Btyond EOT FalUd To Stt EOT Bit (XSTO)' 

SPACE RECORDS Btyond EOT Falltd To Stt EOT Bit (XSTO)* 

READ DATA Btyond EOT Falltd To Stt EOT Bit (XSTO)' 

POSITION CoMand Btyond EOT Into A Tapt Nark Falltd To Stt TNK (XSTO)' 

EOT Not Found In 65000 3.5K Writts, (Ust Shorttr Tapt)* 

WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT* 



.ASCIZ 'Optratlons At EOT* 

'TSSR Incorrtct Afttr Position (REWIND) CoMand' 

'TSSR Incorrtct Afttr SKIP TAPE NARK REVERSE Btyond EOT Hark* 

'EOT (XSTO) Not Stt Afttr SKIP TAPE NARK REVERSE, Btyond EOT' 

*Unablt To Cltar TNK (XSTO) Bit Using Spact CoMand' 

*TSSR Incorrtct Afttr READ FORWARD Cowaand* 

*TSSR Incorrtct Afttr SKIP FILE NARK REVERSE* 



.•ROUTINE TO RESTORE CONNANO PACKET TO START-UP (DEFAULT) VALUES 
.-WRITE SUBSYSTEN NENORV CONNAND 



T34REST: 



64$: 



SAVRE6 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

CLR 

NOV 

CLR 

NOV 

NOV 

NOV 

TST 

CNP 

BNE 

RTS 



#T34PACKET,R1 
#100004. (RD* 
fT340ATA,(R1)4 
(R1)« 

f10..(R1)« 

#T34BFR.(R1)« 

(R1)^ 

f20..(R1)^ 
(R1)« 
fO.(RI) 
#24., R2 

#177777,T34BFR(R2) 

-(R2) 

R2.#0 

64$ 

PC 



T34RT2: 



SAVRE6 



.•SAVE THE REGISTERS 

.•START OF THE PACKET 

.•WRITE SUBSYSTEM NEN. WITH ACK 

.•ADDRESS OF CHARAISTICS DATA BLOCK 

.■EXTENDED ADDRESS 

.'SIZE OF DATA BLOCK IN BYTES 

.•ADDRESS OF NESSA6E BUFFER 

; LENGTH OF NESSAGE BUFFER 

.•SELECT DRIVE ZERO 

;NUNBER OF LOCATIONS TO BE CLEARED 

:ALL ONES TO NESSAGE BUFFER 

.•BUNP DOWN TO NEXT LOCATION 

.•R2 AT ZERO YET 

.•KEEP GOING UNTIL DONE 

: RE TURN 



rSAtfg THf REGISTERS 



CZTUZ.^0 TU80 FRONT END PRT 0 MACRO HI 200 29-MAR-83 

TEST S: OPERATIONS AT EOT 

7815 057712 012701 055510 MOV 

7816 057716 012721 100006 NOV 

7817 057722 012721 05S5A6 NOV 

7818 057726 005021 CLR 

7819 057730 012721 000006 NOV 

7820 057734 012701 0SSS46 NOV 

7821 057740 005021 CLR 

7822 057742 005021 CLR 

7823 057744 005011 CLR 

7824 057746 000207 RTS 

7825 057750 T34RT3: 

7826 057750 SAVREG 

7827 057754 012701 055530 NOV 

7828 057760 012721 100005 NOV 

7829 057764 005021 CLR 

7830 057766 005021 CLR 

7831 057770 005011 CLR 

7832 057772 000207 RTS 

7833 057774 ENOTST 
057774 

057774 104401 
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SEQ 193 



#T34PK2.R1 

ff100006«(R1)« 

ffT34BP2,(R1)« 

(PD* 

«6.,(R1)« 

fT34BF2,R1 

(RD* 

(R1)« 

(R1) 

PC 



«T34PK3,R1 
f100005«(R1)« 
(R1)« 
(R1)« 

PC 



.-START OF THE PACKET 

; WRITE SUBSYSTEM MEN. WITH ACK 

.ADDRESS OF DATA BLOCK 

: EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

; POINT TO DATA SEL AREA 



.•RETURN 

.-SAVE THE REGISTERS 
; START OF THE PACKET 
:URITE TAPE. WITH ACK 
; ADDRESS OF DATA BLOCK 
.EXTENDED ADDRESS 
:SIZE OP DATA BLOCK 
;RETURN 



LI 0057: 



TRAP 



C$ETST 



CZTUZAO TU80 FRONT END PRT D 
TEST 6: FUNCTION TIMING 



7836 
7857 
7838 
7839 
7840 
78A1 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
7851 
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.SBTTL TEST 6: FUNCTION TIMING 



THIS TEST VERIFI5S THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS* GAPS* AND EXTENDED GAPS OF THE PROPER LENGTH. BOTH LOU 
AND HIGH SPEED MODES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SPACE RECORDS COMMAND WITH A RECORD COUNT OF 80 OR MORE, AND A 
SKIP TAPE MARKS COMMAND WITH A COUNT OF 2 OF MORE, OPERATE THE 
TAPE IN HIGH-SPEED NODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS. USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS. 



SEQ 194 



057776 
057776 

7852 057776 

7853 060002 

7854 060006 

7855 060014 

7860 060020 

7861 060024 

7862 060030 

7863 060036 
7864 

7865 
7866 
7867 
7868 
7869 
7870 
7871 
7872 

7873 060042 



005037 
005037 
012737 
004737 
012700 
004737 
012737 
005037 



002170 
003100 
005672 
020234 
064223 
017376 
000002 
061266 



002146 
002164 



BGNTST 

CLR 
CLR 
MOV 
JSR 
MOV 
JSR 
MOV 
CLR 



FATFL6 
KTFLG 

#EPRT1 .EPRTSU 

PC.KTOFF 

«TST37ID,R0 

PCTSTSETUP 

«2A00PCNT 

T37CNT 



T6:: 

CLEAR FATAL ERROR FLAG 

HOLD OFF KT11 

PRIMARY ERROR MESSAGE 

;TURN KT OFF 
.•ASCII MESSAGE TO IDENTIFY TEST 
;D0 INITIAL TEST SETUP 
.'PERFORM 2 ITERATIONS 
.•CLEAR TAPE RECORD COUNTER 



TEST 6, SUBTEST 1 



T37L00P; 



CZTUZAO TU60 FRONT END PRT D 
TEST 6: FUNCTION TIMING 
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VvUV*IC 












• OfO \JOUv%<l 




0091 79 
wUe 1 r c 


7A77 (U^nASn 

c Or • UOUv3w 




OAI 9A4 






0A1 970 


f w» T vwWwv 


Q047T7 


0A4944 


7Mn n&noAi 


ww'»f 3» 


0A4XX6 


7M1 0M070 


0047X7 

WW*lr 


0A4400 


f QwC WWW f *i 


01?7X7 


17^7^0 0M979 


• wO J WW I vc 


0047X7 


01 4AX4 


7M4 


10X426 

1 w J^tCw 




7MS 060110 






0M110 


012727 

W 1 C f C 1 


0002S0 

VwwCyw 


060114 


000000 
wvwv 




060116 


01X727 
w ur c r 


002116 

wVC I I O 


0601 ?? 

www 1 CC 


000000 

wVWwwv 




060124 


0OS367 


1 77772 

1 * ff ff ff c 


060110 

www 1 


001375 

WW 1 ^ 




060132 


005367 


9 W f W ^V 


060136 

WV 1 «#w 


001367 

WW 1 ^Wf 




7886 060140 

ff WW WW 1 ^ w 


005337 


061272 

VW 1 ff 


7887 060144 

■ WV WW 1 


001356 

W I J^W 




7888 060146 

• VVW WV ■ ^ V 


004737 

VV^ ■ W ff 


020070 

wSvw* V 


7892 060152 

■ W WW 1 ^» 


010001 

V ■ VWV i 




7893 060154 

■ www 1 






060154 


104455 

■ w^ ^ 




0601 56 

WV ■ ^V 


001131 




060160 

www ■ WW 


003550 




060162 

www ■ ws> 


011656 

w ■ ■ V^W 




7894 060164 

f w r ^ WW ■ V^ 






7895 






7896 060164 

■ W » W W*»W 1 w • 


012704 

W ■ ■ w^ 


061110 

WW i ■ ■ w 


7897 060170 

f w ' V www 1 f w 


004737 

WW~ f W ff 


010322 


7898 060174 


103407 




7899 060176 


004737 

WW^ ff ■ 


020070 

VKVVff V 


7903 060202 

f rw^ WWW&Wfc 


010001 

W ■ WV ■ 




7904 060204 

■ w^0 ■ WWWfcW^ 






060204 

www&w^ 


104456 

I w^ ^^V 




060206 

VWVb W 


001132 




060210 

WWW& 1 w 


004754 

WW^ ff 




060212 

WWV& i & 


011656 

V ■ 1 w^w 




7905 060214 

• wJ0^ WV& 1 ^ 






060214 

WW& ■ ^ 


104406 

1 w^^ww 




7906 060216 

ff WWWfc ■ w 


004737 

W^ ff ff 


010424 

V 1 V^K^ 


7907 060222 

ff rWff WWK&& 


103411 

■ V^^ ■ ■ 




7908 060224 

ff 7WW WWWft»~ 


016501 

W I W^W 1 


000000 

www 


7909 060230 

• w www&^w 


010004 

w • www^ 




7910 060232 

V ^ ■ W WWWfc 


004737 

WW^ ff rfw 


020070 

WKVVff V 


7914 060236 

ff Vl~ WV&adffV 






060236 


104456 




060240 


001133 




060242 


062445 




060244 


011670 




7915 060246 






060246 


104406 




7916 060250 


013701 


061136 



10S: 



20S: 



BGNSUB 



CLR 
CLR 
CLR 
JSR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



DEC 
BNE 
JSR 
MOV 
ERRDF 



NOV 
JSR 
BCS 
JSR 
NOV 
ERRHRD 



23$: CKLOOP 

JSR 
BCS 
NOV 
NOV 
JSR 

ERRHRD 



INTRECV 

T371.NT 

T37CNU 

PC.T37REST 

PC,T37RT2 

PC.T37RT3 

#65000. .T37DLY 

PCSOFINIT 

20$ 

250 



T37DLV 
10$ 

PCFATCHK 
RO^RI 

ERRNO^SFIERR.SFIMSG 



fT37PACKET,R4 

PC.URTCHR 

23$ 

PCFATCHK 
R0.R1 

ERRN0.URTHS6.SFINS6 



PC, REWIND 
30$ 

TSSR(R5),R1 

R0«R4 

PC.FATCHK 

ERRN0.T37RUN«PKTSSR 



30$: CKLOOP 
NOV T37BFR»6,R1 



SEQ 195 



;»»»»»» BEGIN SUBTEST »»»»»» 
T6.1: 

TRAP C$BSUB 

.•INTERRUPT INDICATOR 

; TIMER FOR WRITE DATA SPACING 

;TIMER FOR WRITE DATA RETRY SPACING 

;SET COMMAND PACKET 

;SET UP OTHER COMMAND PACKET 

:SET UP OTHER COMMAND PACKET 

:SET UP DELAY COUNTER 

:D0 INITIALIZE Or CONTROLLER 

:BR IF INIT WAS OK 

.DELAY ABOUT .25 SEC 

MOV #250, (PC)* 
.WORD 0 

NOV L$OLY,(PC)* 

.WORD 0 

DEC -HPZ) 

BNE .-4 

DEC -22(PC) 

BNE .-20 

:6UMP COUNTER 

;BR, IF COUNTER NOT DONE 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

.•CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 601 
.WORD SFIERR 
.WORD SFIHSG 



; SUBROUTINE NEEDS PACKET ADDRESS 

: ISSUE WRITE CHARACTERISTICS 

;BR. IF COMMAND ISSUED OK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 

;SAVE CONTENTS OF TSSR 

;URITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORD 602 
.WORD WRTMSG 
.WORD SFIMSG 

;LOOP IF SELECTED 

TRAP C$CLP1 
;CALL TAPE REWIND COMMAND 
:BR. IF NO PROBLEM 
;GET TSSR CONTENTS 
;GET PACKET ADDRESS 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
; REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 603 
.WORD T37RWN 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP CSCLPI 
iPlCK UP XSTQ 



CZTUZAO TU60 FRONT END ?AJ 0 
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7917 060254 

7918 0602S6 

7919 060262 

7920 0602M 

7921 060266 

7925 060272 
060272 
060274 
060276 
060300 

7926 060302 
060302 

7927 060304 

7928 060310 

7929 060316 

7930 060324 

7931 060330 

7932 060336 

7933 060342 

7934 060346 

7935 060352 

7936 060356 

7937 060360 

7938 060362 
7942 

7943 
7944 

7945 060366 
060366 
060370 
060372 
060374 

7946 060376 
060376 

7947 060400 

7948 060402 

7949 060404 

7950 060410 

7951 060412 

7952 060416 

7953 060420 

7957 060424 
060424 
060426 
060430 
060432 

7958 060434 
060434 

7959 060436 

7960 060442 

7961 060444 

7962 060450 

7963 060452 

7964 060454 
7>68 060460 

060460 
060462 



010102 
052702 
020102 
001406 
004737 

104456 
001134 
062141 
016334 

104406 
012703 
013737 
012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
001135 
063001 
011670 

104406 
005303 
001345 
004737 
103411 
016501 
010004 
004737 

104456 
001136 
062445 
011670 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
001137 



000002 
020070 



40S: 

000144 

003072 061242 
140005 061240 65$: 
061240 

001130 061246 

177776 

017110 

000000 

000200 



020070 



70S: 



010424 
000000 
020070 



061136 
000002 

020070 



NOV 
BIS 
CNP 
BEQ 
JSR 

ERRHRO 



CKLOOP 

NOV 
NOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 



R1,R2 
fBIT1.R2 
R1,R2 
40t 

PC,»ATCHK 

ERRNO,T37BOT.EXPREC 



«100..R3 

F«IE,T37yB 

«14000S,T37PK3 

fT37PlC3.R4 

f600.,T37SZ 

R4.TSDB(RS) 

PCUAITF 

TSSR(R5},R1 

»SSR.R2 

R1,R2 

70S 

PC.FATCHK 



ERRSOFT ERRN0.T37U0C.PKTSSR 



CKLOOP 

DEC 
BNE 
JSR 
BCS 
MOV 
MOV 
JSR 
ERRHRD 



130S: CKLOOP 

NOV 
NOV 
BIS 
CNP 
BEO 
JSR 

ERRHRO 



R3 
65$ 

PC. REWIND 
130$ 

TSSR(R5).R1 

R0.R4 

PC.FATCHK 

ERRN0.T37RUN,PKTSSR 



TS7BFR«6,R1 
R1,R2 
fBITI ,R2 
R1.R2 
140$ 

PCFATCHK 

ERRN0*T37B0T,EXPREC 



:SET UP EXPECTED 
;SET BOT BIT IN EXPECTED 
;DOES EXP « REC'D 
:BR, IF EQUAL (OK) 

;INC AND CHECK FUR NORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERhP'^ 
.WORD 604 
.WORD TS7B0T 
.WORD EXPREC 

.LOOP IF SELECTED 

TRAP CSCLPI 
.-NUMBER OF RECORDS TO BE WRITTEN 
.•STARTING WRITE BUFFER ADDRESS 
iWRITE DATA.ACK.CVCsl COMMAND 
;SET UP R4 WITH PACKET ADDRESS 
;SET UP RECORD SIZE IN PACKET 
.'ISSUE CONMAND 
.•WAIT FOR SSR TO SET 
;6ET TSSR CONTENTS 
.SET UP EXPECTED 
.-ARE THEY EQUAL 
.•BR. IF OK 

;INC AND CHECK FOR NORE THAN ?5 ERRORS 
;SOFT ERROR. DON'T CARE ABOUT WRITE 
;COMMAND'S RESULTS - CHECKING THE 
.-THE FUNCTION TIMING 
.TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ER<iOF1 
.WORD 605 
.WORD T37WDC 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP C$CLP1 

:DEC RECORD COUNTER 

;BR. IF NORE RECORDS TO WRITE 

.-CALL TAPE REWIND COMMAND 

;BR. IF NO PROBLEN 

.•GET TSSR CONTENTS 

;6ET PACKET ADDRESS 

.•INC AND CHECK FOR NORE THAN 25 ERROR: 
.REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 606 
.WORD T37RWN 
.WORD PKTSSR 

:LO0P IF SELECTED 

TRAP C$CLP1 

;P1CK UP XSTO 

.•SET UP EXPECTED 

.•SET BOT BIT IN EXPECTED 

.DOES EXP s REC'D 

;BR, IF EQUAL (OK) 

;INC AND CHECK FOR NORE THAN 25 ERRORS 
:TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRD 
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06046A 


062141 










060466 


016334 










7969 060470 








140$: 


CKLOOP 


060470 


104406 










7970 060472 


012704 


061240 






MOV 


7971 060476 


012737 


000037 


061242 




MOV 


7972 060S04 


012737 


140010 


061240 




MOV 


7973 060S12 


010465 


177776 




150S: 


MOV 


7974 060516 


005237 


061266 




152S: 


INC 


7975 060522 










DELAY 


060522 


012727 


000001 








060526 


000000 










060530 


013727 


002116 








060534 


000000 










060536 


005367 


177772 








060542 


001375 










060S44 


005367 


177756 








060550 


001367 










7976 060552 


016501 


000000 






NOV 


7977 060556 


032701 


000200 






BIT 


7978 060562 


001755 








BEO 


7979 060564 


012702 


000200 






NOV 


7980 060570 


020201 








CW* 


7981 060572 


00U06 








BEQ 


7982 060574 


004737 


020070 






JSR 


7986 060600 










ERRHRD 


060600 


104456 










060602 


001140 










060604 


063707 










060606 


011670 










7987 060610 








160$: 


CKLOOP 


060610 


104406 










7988 060612 


004737 


010424 






JSR 


7989 060616 


103411 








BCS 


7990 060620 


010004 








NOV 


7991 060622 


016501 


000000 






NOV 


7992 060626 


004737 


0^0070 






JSR 


7996 060632 










ERRHRD 


060632 


104456 










060634 


001141 










060636 


062445 










060640 


011670 










7997 060642 








170$: 


CKLOOP 


060642 


104406 










7998 060644 


013701 


061136 






NOV 


7999 060650 


010102 








NOV 


8000 060652 


052702 


000002 






BIS 


8001 060656 


020102 








CMP 


8002 060660 


001406 








BEQ 


8003 ^60662 


004737 


020070 






JSR 


8007 060666 










ERRHRD 


060666 


104456 










060670 


001142 










060672 


062141 










060674 


016334 










8008 060676 








175$: 


CKLOOP 


060676 


104406 











fT3/PK3,R4 

#31..T37RB 

f140010,T37PK3 

R4,TSDB(R5) 

T37CNT 

1 



TSSR(R5),R1 

fSSR.RI 

152$ 

fSSR«R2 

R2,R1 

160$ 

PC.FATCHK 

ERRN0,T37SCF,PKTSSR 



PC.REUINO 

170$ 

R0.R4 

TSSR(R5),R1 
PC.FATCHK 

ERRN0,T37RyN,PKTSSR 



T37BFR«6,R1 

R1,R2 

«BIT1.R2 

R1.R2 

17$$ 

PC.FATCHK 

ERRNO.T37BOT.EXPREC 



.WORD T37B0T 
.WORD EXPREC 

;LOOP IF SELECTED 

TRAP CSCLPI 

.-SET UP PACKET ADDRESS 

;SET UP RECORDS TO SPACE OVER 

;ACK.CVCs1, SPACE FORWARD CONNAND 

.•ISSUE CONNAND 

:BUNP TINER 

: DELAY ABOUT lOOUS 

NOV #1,(PC)« 
.WORD 0 

NOV L$DLV.(PC)« 

.WORD 0 

DEC -6(PC) 

BNE .-4 

DEC •22(PC) 

BNE .-20 

:6ET TSSR 

.•check for tssr's ssr set 
:keep counting until set 
;se; up expected 
:was everything ok 
.•br. if all is well 

;inc and check for nore than 25 errors 
; space forward didn't work out 

trap c$erhrd 

.WORD 608 
.WORD T3^SCF 
.WORD PKTSSR 

.•LOOP IF SELECTED 

TRAP CSCLPI 
;CALL TAPE REWIND CONNAND 
;BR. IF NO PROBLEN 
.-GET PACKET ADDRESS 
.-GET STATUS FRON TSSR 
:INC AND CHECK FOR MORE iHAN 25 EP^ORS 
.•REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 609 
.WORD T37RWN 
.WORD PKTSSR 

:LOOP IF SELECTED 

TRAP C»CLP1 

.•PICK UP XSTO 

.•SET UP EXPECTED 

:SET BCT BIT IN EXPECTED 

:DOES EXP s REC'D 

:BR. IF EQUAL (OK) 

.•INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP CSERHRO 
.WORD 610 
.WORD T37BOT 
.WORD EXPREC 

;LOOP IF SELECTED 
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#T37PK3,R4 

#81.,T37RB 

#U06lO«T37PKS 

R^.TS0B(R5) 

T37LNU 

1 



Anno 




ftl 07f\L 
U 1 Cr U*l 


Oiki 3/,n 






nlJV 


finin 




ni37X7 
Ulcf 3f 


nnni 9i 

UUU 1 c 1 


UO 1 C^C 




nil* 


OU 1 1 


UOUr 1 C 


M 37X7 




n&i 3£n 




nuv 


ouic 


UOwrcU 




17777A 




3snft< 


Mnu 




UOUr 


UU3c3r 


t)A^ 37n 




3S3ft< 
c3c«< 


IMF 
ink 


OU 1*1 


nAn7xn 

UOUf 
















01P7P7 

w 1 Cf C' 


nnnoni 










www r J** 


WWVv 














01 37P7 


007116 










0An7^9 


WVVVVW 
















17777? 










0MI7S0 

wwwf 


001 37S 

WW 1 J* ^ 












www* 


00S367 

WW^ JW« 


1777S6 

Iff* ^W 










0607S6 


001367 

WW 1 JWr 










MIS 


0M7M 


W 1 W^V 1 


000000 

WWWwVV 






MOV 




WVVV 


032701 

WWC f W 1 


000200 

WWWfcWW 






BIT 


8017 


060770 

WW* « w 


001 7SS 

WW 1 * 








BEQ 

Wb W 


8018 


0M772 


012702 

w 1 c wft 


000200 

WWVfiWW 






NOV 

nww 


8019 


0M776 


020201 








CMP 


8020 


061000 

WW • www 


001406 

WW 1 ^ww 








BEQ 


8021 


061002 

WW < WW& 


0047*7 

ww~ t • ■ 


020070 

Wb WW* w 






JSR 


1025 


061006 

WW 1 www 










ERRHRO 




061006 

WW 1 www 


1044S6 

■ W^~ */w 












061010 

WW 1 W 1 w 


001143 

WW 1 ■ ~w 












061012 

WW 1 V 1 


063707 

WWii#* w* 












061014 

WW ■ w ■ ^ 


011670 

W ■ • Wf w 










8026 


061016 

WW ■ W I w 








260S: 

^w w ■ 


CKLOOP 




061016 

WW • W 1 w 


104406 

1 W^~WW 










8027 


061020 

WW 1 WfcW 


013701 

W ■ W W 1 


061 266 

WW • fcWW 






MOV 


8028 


061024 

WW ■ Wfc~ 


013702 


061270 






MOV 


8029 


061030 

WW V www 


042701 

W^b • W 1 


000077 

W WW w » • 






SIC 


8030 


061034 

WW • w«#^ 


042702 

W^fc* Wfc 


000077 

wwww* » 






BIC 

W A « 


8031 


061040 

WW ■ w^w 


020102 

WKW V WK 








CMP 


8032 


061042 

WW i W^fc 


003406 

WWW^WW 








BLE 

W1»W 


8033 


061044 

WW ■ w^~ 


004737 

ww^ ff r 


020070 

W&W V » w 






JSR 


8037 


061 OSO 

WW 1 w^w 










ERRHRO 




061050 

WW i Wa#W 


104456 

1 w~~ ^W 












0610S2 

WW 1 Wi#& 


001144 

WW 1 1 ~~ 












061 0S4 

WW 1 w*#^ 


062234 












061 OM 

WW 1 w*#w 


016334 










8038 


061060 

WW 1 www 








300t: 


CKLOOP 




061060 

WW 1 www 


104406 

1 W^~ WW 










8039 


061062 

WW 1 WWK 










ENDSUB 




061062 

WW 1 wwvb 














061062 


104403 










8040 










• 
• 




8041 


061064 


0047S7 


017344 






JSR 


8042 


061070 


103002 








sec 


8043 


061072 


000137 


060042 






JMP 


8044 


061076 








163S: 


EXIT 




061076 


104432 












061100 


003522 











TSSR(RS),R1 

fSSR.RI 

252S 

«SSR.R2 

R2.R1 

260$ 

PC.FATCHK 

ERRN0.T37SCF,PKTSSR 



T37CMT.R1 

T37CNU,R2 

#000077, R1 

f000077,R2 

R1,R2 

300$ 

PC.FATCHK 

ERRN0,T37T1M,EXPREC 



PC.TSTLOOP 
163$ 
T37LOOP 
TST 



:SET UP PACKET ADDRESS 

;SET UP RECORDS TO SPACE OVER 

;ACK,CVC«1, SPACE FORWARD COMMAND 

; ISSUE COMMAND 

:BUMP TIMER 

.•DELAY A80UT lOOUS 

MOV #1.<PC)* 
.WORD 0 

MOV L$DLV.<PC)* 
.WORD 0 
DEC -6(PC) 
BNE .-4 
DEC •22(PC) 
BNE .-20 

;6ET TSSR 

.•CHECK FOR TSSR'S SSR SET 
;KEEP COUNTING UNTIL SET 
:SET UP EXPECTED 
;UAS EVERYTHING OK 
:BR. IF ALL IS WELL 

:INC AND CHECK FOR MORE THAN 25 ERRORS 

.•SPACE FORWARD DIDN'T WORK OUT 

TRAP CSERHRD 
.WORD 611 
.WORD T37SCF 
.WORD PKTSSR 

:LUOP IF SELECTED 

TRAP CSCLPI 

.•TIME FOR WRITE SPACING 
:TIM£ FOR WRITE RETRY SPACING 
.•SETTING UP CONSTANTS 
: SETTING UP CONSTANTS 
.•CHECK FOR DIFFERENCE 
:BR, IF GOOD CHECK 

;INC AND CHECK FOR MORE THAN 25 ERRORS 
:TIME WAS NOT DIFFERENT ENOUGH 



;LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



CSERHRD 
612 

T37TIH 
EXPREC 



TRAP CSCLPI 



;««««««< END SUBTEST »»»»»» 
L10062: 

TRAP C$ESUB 

.•DO WE NEED TO ITERATE TEST 
:BR. IF NO LOOP REQUIRED 
.•EXECUTE AGAIN 

;ALL DONE THIS TEST ^ , 

TRAP CSEXIT 
.WORD L10061-. 
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8046 












8047 




.•LOCAL STORAGE FOR THIS TEST 




8048 




• 








8050 061102 






.BLKB 


10-<.-TUV2Aft7> 




8052 061110 




T37PACICET: 




.•COMMAND PACKET FOR TEST 


8053 061110 


100004 




.WORD 


100004 


:URITE CHARACTERISTICS COMMAND. WITH 


8054 061112 


061120 




.UORD 


T37DATA 


; ADDRESS OF CHARACTERISTICS BLOCK 


8055 061114 


000000 




.UORD 


0 


8056 061116 


000012 




.WORD 


10. 


;STARTIN6 VALUE OF BLOCK SIZE 


8057 061120 




T37DATA: 






; CHARACTERISTICS DATA BLOCK 


V ^k AAA «M ^k 

8058 061120 


061130 




.WORD 


T37BFR 


; ADDRESS OF MESSAGE BUFFER 


8059 061122 


000000 




.WORD 


0 


8060 061124 


000024 




.WORD 


20. 


.•LENGTH OF MESSAGE BUFFER 


A A ^k AAA ^k A 

8061 061126 


000000 




.WORD 


0 


^k M ^k AAA ^B^h 

8062 061130 




T37BPR: 


.BLKU 


25. 


.•MESSAGE BUFFER 


8063 




• 






8064 




:WR1TE SUBSYSTEM MEMORY COMMAND PACKET 




8065 




• 








^k ^k M dk A A 4k A 

8067 061212 






At WA 

.BLKB 


10-<.-TUV2Ai7> 




8069 061220 




TSrPKZ: 








8070 061220 


100006 




.UORD 


100006 


;URITE SUB SYS MEM COMMAfiSD. AND ACK 


AAVA A^ A AAA 

8071 061222 


061250 




.WORD 


T37BP2 


A ^k A A A ^k ^ A A A A A A ^ A A *d A A A A 

; ADDRESS OF SELECT olGCK DATA 


AA^A A^ A AAA 

8072 061224 


000000 




.WORD 


0 


8073 061226 


AAAAA4 

000006 




.UORD 


6. 


A ■ A A A A AAAA A A A Ad A A 

;SIZE OF DATA PACKET 


AA^4 

8074 










8076 061230 






.BLKB 


10-<.-TUV2Al7> 




8078 061240 




T37PIC3: 








AA^M A^ « U A 

8079 061240 


4 AAAA^ 

100005 




.UORD 


100005 


AP A^ A A ^AM^BAAIA A &A A A ^ ft^ 

;REREAD COMMAND. AND ACK 


AAAA A^ A A J A 

8080 061242 




T37R8: 








AAAA A^ d A4 t 

8081 061242 


AAV A VA 

003072 


T37yB: 


.UORD 


FREE 


:ADORESS OF URITE BUFFER 


AAA A A^ A A4 M 

8082 061244 


000000 




.UORD 


0 




AAAW A^ A A J ^ 

8083 061246 


A AAAA A 

000000 


T37S2: 


.UORD 


0 


iSIZc OF BUFFER (EXTENT) 


8084 






.EVEN 






AA A V 

8085 




• 
• 








8086 




• 
• 








AA V 

8087 




• 

T37BF2: 








AAA A A^AAVA 

8088 061250 










AAAA A^ A ACA 

8089 061250 


010 


T37BS0: 


.BYTE 


10 


A^^a A AAPA 

;BSELO AREA 


8090 061251 


200 


T37BS1 : 


.BYTE 


200 


;BSEL1 AREA 


A A A A A A V A 

8091 061252 


000000 


T37S2: 


.UORD 


0 


;SEL 2 AREA 


A AAk A A A A A V A 

8092 061254 


000000 


T37S3: 


.UORD 


0 


;DATA AREA 


AAAV 

8093 




• 
• 








8094 




• 
• 








AAA9 

8095 






.EVEN 






8096 




:TAPE NOTION PACKET COMMAND VALUES 




8097 












AAAA A^ A Afl*^ 

8098 061256 


« AAAAV 

100205 


T37RN: 


.UORD 


100205 


. Af apaa aaTa t w T \ 

; REREAD DATA (NEXT) 


8099 061260 


a AA^ Af 

100605 


T37yDR: 


.UORD 


100605 


; REREAD DATA RETRY 


5100 0o12oc 


lOccO) 


T37C0N: 


.UORD 


102205 




8101 061264 


177777 




.UORD 


177777 


:END OF DATA 


8102 












8103 




• 






.-TAPE TIMER COUNTER STORAGE AREA 


8104 061266 


000000 


f37CNT: 


.UORD 


0 


8105 061270 


000000 


T37CNU: 


.UORD 


0 


.•TAPE TIMER COUNTER STORAGE AREA 


8106 061272 


000000 


T370LY: 


.UORD 


0 


.•DELAY COUNTER 


8107 
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8109 
8110 
8111 
8112 
8113 
8114 

81 15 061274 

8116 061362 

8117 06U31 

8118 061526 

8119 061610 

8120 061660 

8121 061735 

8122 062016 

8123 062052 

8124 062141 

8125 062234 

8126 062311 

8127 062370 

8128 062445 

8129 062514 

8130 062567 

8131 062636 

8132 062711 

8133 063001 

8134 063054 

8135 063127 

8136 063202 

8137 063271 

8138 063353 

8139 063435 

8140 063523 

8141 063611 

8142 063707 

8143 063764 
064046 
064126 

8146 064223 
8147 
8148 
8149 
8150 
8151 
8152 
8153 
8154 

8155 064244 

8156 064244 

8157 064250 012701 061110 

8158 064254 012721 100004 

8159 064260 012721 061120 

8160 064264 005021 

8161 064266 012721 000012 

8162 064272 012721 061130 

8163 064276 005021 

8164 064300 012721 000024 

8165 064304 005021 



8144 
8145 
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.LOCAL TEXT MESSAGES FOR TEST 



SEQ 200 



124 


141 


4 A A 

160 


T37yN6 


.ASCIZ 


124 


4 

123 


4 

123 


T37RDF 


.ASCIZ 


122 


1 AC 

105 


4 99 

122 


T37RRF 


.ASCIZ 


120 


117 


1 91 

123 


T37SC: 


.ASCIZ 


122 


111 

111 


m9 
102 


T37LOR: .ASCIZ 


1 9/. 

124 


1 91 

123 


1 91 

123 


T37UDF 


.ASCIZ 


111 

111 


1 Cl 

19* 


1 Cl 

1 )* 


T37L00: .ASCIZ 


1 99 

Icc 


inc 

1U9 


1 99 

122 


T37SSR: .ASCIZ 


1 91. 

Ic* 


1 91 

123 


1 91 
123 


T37U0E: .ASCIZ 


1 91, 

12* 


111 
1*1 


lOU 


T37B0T: .ASCIZ 


Icf 


199 
122 


111 

111 


T37TIN: .ASCII 




in< 


199 
122 


T37EOT: .ASCIZ 


1 

Ic* 


19T 
123 


191 
Ic9 


T37TM: 


.ASCIZ 


199 


I*l9 


1A7 
IDr 


T37RyN 


! .ASCIZ 


199 
Ice 


ini 

IU1 


lie 

1 19 


T37RNC 


1 .ASCIZ 


Ic* 


19T 

1 c3 


1 9X 

1 c^ 


T37An3 


i .ASCIZ 


10^ 


lOc 


141 


T370FL 


! .ASCIZ 


19£ 


ICJ 


I €3 


T37UDD. 


; .ASCIZ 


1 c*» 


19X 


19Y 


T37UDC 


i .ASCIZ 


103 


126 


103 


T37VCK 


: .ASCIZ 


124 


123 


102 


T37BA: 


.ASCIZ 


127 


122 


111 


T37USS: .ASCIZ 


122 


145 


141 


T37L0N: .ASCIZ 


122 


145 


141 


TS7L0P: .ASCIZ 


122 


145 


163 


T37PBP: .ASCIZ 


122 


145 


141 


T37TRL: .ASCIZ 


127 


122 


111 


T37NEF: .ASCIZ 


124 


123 


123 


T37SCF 


: .ASCIZ 


124 


123 


123 


T37TSA: .ASCIZ 


124 


123 


123 


T37WRF: .ASCIZ 


104 


141 


164 


T37DTA: .ASCIZ 


106 


165 


156 


TST37ID: 










.EVEN 



Tapt Position Incorrtct Afttr REREAD Previous (OPPsD* 
TSSR Incorrtct Afttr READ DATA Command' 

REREAD Prtvlous (Sptct Rtvtrst. Rttd Forward) Comaand Falltd* 

POSITION (Spact CoMMand) Falltd, TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Corrtct Afttr lUtgal Hodt Bits Set* 

lUtoal Modt Bits, Falltd To Stt ILC Bit In XSTO' 

REREAD COMMAND Not Acctpttd' 

TSSR Not Corrtct Afttr WRITE DATA RETRY CoMiand.At BOT' 

Tapt Not At BOT Afttr REWIND CoMnand (BOT Not Set In XSTO)' 

WRITE DATA RETRY* *S Erast Tapt Not Long Enough* 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Corrtct Afttr REREAD COMMAND Rtject' 

RtMind (POSITION) CoiMand Not Acctpttd' 

RAM Error, Corrtct Data Patttrn Not In Ram' 

TSSR Inlt. Falltd Afttr REREAD COMMAND* 

Drivt 7 Stltct Falltd To Stt 'IDFL" In TSSR* 

TSSR Not Corrtct Afttr REREAD DATA CoMMnd. SWB Bit Stt* 

TSSR Not Corrtct Afttr REREAD DATA CoMund* 

CVC Stt, D1dn'*t Rtstt VCK In Mtssaat Buffer* 

TSBA Not Corrtct Afttr REREAD DATA CoMMnd* 

WRITE SUBSYSTEM MEMORY CoMiand Not Acctpttd (RAM Read)* 

Rtading Long Rtcord Falltd To Stt RLL Bit In XSTO' 

Rtadfng Long Rtcord Falltd To Stt RLS Bit In XSTO* 

Rttldual Bytt Count Incorrtct Afttr Short Rtcord Rtad* 

Rtading Long Rtcord Falltd To Givt Tapt Status Alert' 

WRITE DATA RETRY, At First Rtcord, Falltd To Stt RIB Bit XST3* 

TSSR Not Corrtct Afttr SPACE RECORDS CoMund* 

TSSR Not Corrtct Afttr WRITE DATA RETRY, Into BOT* 

TSSR Not Corrtct Afttr WRITE DATA RETRY Cotwand' 

Data Co«part Error, Data Rtad Froa Tapt Not Equal To Writttn* 

ASCIZ *Funct1on TlMlng* 



;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
.•WRITE SUBSYSTEM MEMORY COMMAND 



T37REST: 



SAVRE6 

MOV «T37PACKET,R1 

MOV f 100004. (R1)^ 

MOV «T37DATA,(R1)« 

CLR (R1)« 

MOV #10., (R1)^ 

NOV «T37BFR.(R1)« 

CLR (R1)« 

MOV f20.,(R1)« 

CLR (R1)» 



:SAVE THE REGISTERS 

; START OF THE PACKET 

: WRITE SUBSYSTEM MEM. WITH ACK. 

: ADDRESS OF CHARAISTICS DATA BLOCK 

.EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

:ADDRESS OF MESSAGE BUFFER 

: LENGTH OF MESSAGE BUFFER 



C2TUZA0 TU80 FRONT END PRT D 
TEST 6: FUNCTION TIMING 



6 16 

HACRO nUOO 29-nAR-83 13:43 PAGE 112-1 



SEQ 201 



SIM O&txoA 


VIC' 1 1 






012709 






01 2762 


1 77777 

Iff f f f 




005742 




8170 064326 


022702 


000000 

vWwvvv 


8171 064332 


001371 


8172 064334 


000207 

w V > 




8173 






81 74 






8175 064336 






8176 064336 






8177 064342 


012701 


061220 

Vw < K » V 


8178 064346 


012721 


100006 

■ WWW 


8179 064352 


012721 


061250 

VW ■ ^ V 


8180 064356 


005021 




8181 064360 


012721 


000006 

WW WW 


8182 064364 


005021 




8183 064366 


012701 


061250 

WW ■ b^W 


8184 064372 


005021 




8185 064374 


005011 




8186 064376 


000207 




8187 064400 






8188 064400 






8189 064404 


012701 


061240 


8190 064410 


005021 


8191 064412 


005021 




8192 064414 


005021 




8193 064416 


005011 




8194 064420 


000207 




8195 064422 






064422 






064422 


104401 





061130 64$: 



T37RT3: 



mv #0.(R1) 

NOV f24..R2 

WV #177777,T37BFRCR2) 

TST -'R2) 

CHP «0,n2 

BNE 64$ 

RTS PC 



T37RT2: 







MOV 

nw» 


#T37PK2 R1 


NOV 


#100006. (R1)« 

w ■ w WWW ^ \ n ■ w ' 


NOV 


#T37BF2,<R1)* 


CLR 


(RD* 


NOV 


f6.«(R1)« 


CLR 


(RD* 


NOV 


«T37BF2.R1 


CLR 


{R1)» 


CLR 


(R1) 


RTS 


PC 


SAVRE6 




NOV 


#T37PIC3,R1 


CLR 


(R1)« 


CLR 


(RD* 


CLR 


(R1)4 


CLR 


(R1> 


RTS 


PC 


ENDTST 





; SELECT DRIVE ZERO 

;NUNBER OF LOCATIONS TO BE CLEARED 

.'ALL ONES TO MESSAGE BUFFER 

:NEMT LOCATION 

;AT END OF LOOP YET 

;KEEP GOING UNTIL DONE 

.•RETURN 



;SAVE THE REGISTERS 

; START OF THE PACKET 

;WRITE SUBSYSTEM MEM. WITH ACK, 

.-ADDRESS OF DATA BLOCK 

; EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 

; POINT TO DATA SEL AREA 



.•RETURN 

;SAyE REGISTERS 

;SET UP POINTER ADDRESS 

:COHNAND SPACE 

.-ADDRESS OF DATA BLOCK 

.•EXTENDED ADDRESS 

:SIZE OF DATA TRANSFER BLOCK 

.•RETURN 



L10061: 



TRAP C$ETST 



G2TUZA0 TU80 FRONT END PRT D 
DISPLAY BREAKPOINT SETTINGS 



9270 
9275 
9281 
9282 
9283 
9284 
9285 
9286 
9287 
9288 
9289 
9290 
9291 
9292 
9293 

9294 071222 
071222 
071224 

9295 

9296 071224 
071224 
071226 
071230 
071232 

9297 071234 
071234 
071236 
071240 
071242 

9298 071244 
071244 
071246 
071250 
071252 
071254 

9299 071256 
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SEQ 202 



071256 

9300 071256 

9301 071305 

9302 071331 
9303 

9304 



000015 



000031 
071256 
160000 
177776 

001031 
071305 
000000 
000776 

002032 
071331 
000340 
000000 
000007 



104 
111 
111 



.SBTTL HARDWARE PARAMETER CODING SECTION 

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LtHARD:: 



B6NHRD 

.WORD L10063-LSHARD/2 



105 
116 
116 



Li 0063: 



126 HPM1 
124 Hm2 
124 HPN3 



6PRMA 

.WORD 

.WORD 

.WORD 

.WORD 

6PRMA 

.WORD 

.WORD 

.WORD 

.WORD 

6PRM0 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

ENDHRO 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPM1 .0.0.160000 J77776,YES 

T$C00E 

HPM1 

TSLOLIN 

T$HILin 

HPM2.2,0.0.776.YES 

TSCOOE 

HPM2 

TSLOLIM 

TSHILIN 

NPM3.4.0.340,0.7.VES 

TSCOOE 

HPM3 

340 

TSLOLIN 
TSHILIM 



'DEVICE ADDRESS (TSSR) * 
'INTERRUPT VECTOR * 
'INTERRUPT PRIORITY 



;6ET TSBA/TSDB REGISTER ADDRESS. 



:6ET VECTOR ADDRESS. 



;GET INTERRUPT PRIORITY. 



CZTUZAO TU80 FRONT END PRT 0 MACRO HI 200 
SOFTWARE PARAMETER COOING SECTION 



9 

9>0f 
9308 
9309 
9310 
9311 
9312 
9313 
93U 
9315 

9316 071362 
071362 
071364 

9317 071364 
071364 
071366 
071370 

9318 071372 
071372 
071374 
071376 

9319 
9320 

9321 071400 

071400 

9322 071400 

9323 071437 

9324 071467 

9325 071517 
9326 

9327 
9328 
9329 
9330 
9331 
9332 

9333 071550 
071550 
071552 
071552 
071554 
071556 
071560 
071562 
071564 

9334 
9335 
9336 
9357 
9338 

9339 071566 
9340 
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.SBTTL SOFTWARE PARAMETER COOING SECTION 



SEQ 203 



000006 



000130 
071400 
177777 

001130 
071437 
177777 



105 
111 
120 
120 



000006 

023634 
032316 
041312 
046630 
052646 
057776 



116 
116 
105 
105 



; THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 

; THAT ARE USEO BY I HE SUPERVISOR TO BUILO P-TABLES. THE 

; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 

; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

; WITH THE OPERATOR. 



LSSOFT:: 



B6NSFT 

.WORD L10064-LSSOFT/2 



101 
110 
122 
122 



LI 0064: 

SPH1: 

SPN4: 

SPN6: 

SPH7: 



6PRML 

.WORD 

.WORD 

.WORD 

6PRML 

.WORD 

.WORD 

.WORD 

GPRMD 

GPRMO 

ENDSFT 

.EVEN 

.ASCII 

.ASC12 

.ASCII 

.ASCII 

.EVEN 

.SBTTL 



SPMl ,0,-1. YES 

TSCODE 

SPMl 

-1 

SPM4.2,-1,YES 

TSCODE 

SPM4 

-1 

SPM6,4,D,7777.0.7777,YES 
SPM7,6,D,7777,0,7777,VES 



:6ET RAM DUMP FLAG 



GET ITERATION CONTROL. 



GET LOCAL ERROR LIMIT 
GET GLOBAL ERROR LIMIT 



* ENABLE n7454 RAH DUMP ON ERROR' 
'INHIBIT ITERATIONS 
*PER TEST ERROR LIMIT * 
*PER UNIT ERROR LIMIT * 

PATCH AREA 



;DISPATCH TABLE 

; MOVE TO FRONT OF PROGRAM FOR RELEASE 

DISPATCH TESTNO 

.WORD 6 
LSDISPATCH:: 

.WORD T1 

.WORD T2 

.WORD T3 

.WORD T4 

.WORD T5 

.WORD T6 

; FINALLY A GENEROUS PATCH AREA. 

; AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 

: DESCRIBED«:n "SUPPRG.HEN" (FOR REV C). 

PATCH:: 



CZTUZAO TU80 FRONT END PRT D 
PATCH AREA 
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SEQ ?04 



9342 071 S66 

9343 071 S66 

9344 071572 

9345 071574 

9346 071600 

9347 071602 

9348 071604 

9349 071610 

9350 071614 

9351 0716'i4 

9352 071620 

9353 071624 

9354 071626 

9355 071630 

9356 071634 

9357 071640 

9358 071644 

9359 071646 

9360 071652 

9361 071660 

9362 071662 

9363 071666 

9364 071670 

9365 071676 

9366 071700 

9367 071706 

9368 071712 

9369 071714 

9370 071722 

9371 071730 

9372 071732 

9373 071740 

9374 071744 

9375 071750 

9376 071752 
9377 

9378 
9379 

9380 071756 

9381 071756 

9382 071762 

9383 071764 
9384 

9385 
9386 

9387 071766 

9388 071772 

9389 071774 

9390 072000 
9391 

9392 
9393 

9394 072002 

9395 072021 

9396 072071 

9397 072121 
9398 



012706 
OOOOOS 
012701 
005301 
001376 
012703 
004737 

012701 
012705 
005000 
010021 
012725 
062700 
020027 
003770 
012741 
012737 
005005 
012701 
012504 
052737 
C10421 
042737 
020127 
101765 
062737 
023727 
002754 
042737 
012703 
004737 
000000 
000137 



004737 
001375 
000207 



105737 
100375 
112337 
000207 



015 
015 
015 
015 



001000 
177777 



072002 
071756 

172340 
172300 



077406 
000200 
001600 

007600 
002000 

140000 

000001 

000001 
157776 

000200 
172354 

000001 
072071 
071756 

072140 



071766 



177564 
177566 



012 
012 
012 
012 



HOVER: 



5t: 



TEST5A: 



20S: 



172354 16S: 



177572 
177572 



172354 
003600 

177572 



17$: 
10S: 



NOV «1000.SP 
RESET 

HOV #-1,R1 

DEC R1 

BNE 5S 

MOV fHHDR^ROHBASE-nOVER.RS 

JSR PCPRINT 

MOV «KIPAR0«R1 

MOV #KIPDRO.RS 

CLR RO 

MOV R0,(R1)« 

NOV #77406. (R5)^ 

ADD f 200.ro 

CNP R0.f1 600 

BLE 20S 

NOV #7600. -(R1) 

NOV #2000.affKlPAR6 

CLR R5 

NOV fUOOOO.RI 

MOV (R5)«.R4 

BIS f 1 .at SRO 

NOV R4.(R1)« 

BIC fl.BiSRO 

CNP R1 .#157776 

BLOS 10S 

ADD #200.a#KIPAR6 

CNP a#KlPAR6.#3600 

BLT 171 

BIC #1.a#SR0 

NOV #6OO0«RONBASE-N0VER.R3 

JSR PCPRINT 

HALT 

JNP RLBOOT 

PRINT ROUTINE 



PRINT: 
U: 



JSR 
BNE 

RTS 



TTYPRT: 



115 
103 
103 
102 



NHOR: 

GOOD: 
BOOT: 



PC.TTYPRT 

1$ 

PC 



CHARACTER PRINT ROUTINE 

TSTB a#TTOCSR 

BPL TTtPRT 

NOVB (R3>«.a#TT0BFR 

RTS PC 

NESSA6E AREA 



SET STACK AT LOC 1000 
GET THINGS IN PLACE 
SET UP COUNTER 
BUMP COUNTER 

BR. IF MORE COUNTING TO 00 
POINT TO MESSAGE 
•T<OVER REV ??•• 

MOVER OF KIPAR REGISTERS 
MOVER OF THE KIPDR REGISTERS 
FIRST PAGE BASE ADDRESS 
SET BASE FOR NEXT MAP 
4K READ/WRITE EACH PAGE 
BASE FOR THE NEXT PAGE 
DONE ALL PAGES ? 

SET UP ALL MENORY NANAGENENT PAGES 

SET UP I/O PAGE 

NOVER NENORY PAGE 32KUOR0S 

INITIAL LOCATION 0 NOVER 

NOVER AT LOC 0. RELATIVE TO K1PAR6 

GET MEMORY CONTENTS 

ENABLE NENORY NANAGENENT 

PUT INTO UPPER NENORY 

TURN OFF NENORY HANGENENT 

END OF NENORY PAGE YET ? 

LOOP TILL WHOLE PAGE WRITTEN 

NAP INTO NEXT PAGE 

UP TO 64K YET 

LOOP UNTIL ALL NENORY WRITTEN 
TURN OFF NENORY HANGENENT 
POINT TO NESSAGE 
"CODE HAS BEEN NOVED" 
WAIT FOR DISK SWAP 
GO BOOT THE XXDP PACK 



;G0 TO PRINT ROUTINE 

.•LOOP UNTIL 000000 IS FOUND 

.•RETURN TO CALLER 



: CHECK TTY FOR DONE 
:LOOP UNTIL DONE SETS 
:SEND OUT CORRECT CHARACTER 
.•RETURN TO CALLER 



.ASCII 
.ASCIZ 
.ASCIZ 
.ASCIZ 



<15><12>/NOVER REV 0.0/ 

<15><12>/CODE FRON 0-^2K NOVES TO 32-64K WORDS/ 
<15><12>/CODE HAS BE:N N0VED/<15><12> 
<15><12>/BOOTIN6 XXDP/ 



CZTUZAO TU80 FRONT END PRT 0 
PATCH AREA 



MACRO Ml 200 29-MAR-83 



9A00 072U0 






RLBOOT: 




9401 072U0 


012701 


174400 


MOV 


9402 072U4 


012700 


1 74404 


1$: 


NOV 


9403 072150 


012720 


000013 




NOV 


9404 0721 S4 


004537 


072302 




JSR 


940S 072160 


0<'0004 






.WORD 


9406 072162 


032711 


000001 




BIT 


9407 072166 


001010 






BNE 


9408 072170 


011004 






NOV 


9409 072172 


042704 


177730 




BIG 


9410 072176 


001451 






BEQ 


9411 072200 


022704 


000006 




CMP 


9412 072204 


101446 






BLOS 


9413 072206 


000756 






BR 


9414 072210 


004537 


072302 


2i: 


JSR 


941 S 072214 


000010 




.WORD 


9416 072216 


011004 






MOV 


9417 072220 


042704 


000177 




BIC 


9418 072224 


005204 






INC 


AM A ^ft4% 4h 4 

9419 072226 


010440 






MOV 


9420 072230 


004537 


072302 




JSR 


9421 072234 


000006 






.WORD 


9422 072236 


005037 


174402 




CLR 


A< JftVM4ft< 4ft 

9423 072242 


005020 






CLR 


4fttf Jk^4ft4fttf A 

9424 072244 


012710 


177400 




MOV 


JftVk*kVJh 

942S 0722S0 


004537 


072302 




JSR 


4ft « tfft ^ jft^dfttfftv^ 

9426 072254 


000014 






.WORD 


9427 0722S6 


005000 






CLR 


MA JftV*hM^ Jh 

9428 072260 


022737 


AJhJftAtf Jft JftjftJftJftJkJft 

000240 000000 




CMP 


M« Mktfft Jft^A«ft^ ^ 

9429 072266 


001016 






BNE 


9430 072270 


012703 


072121 




MOV 


9431 072274 


004737 


071756 




JSR 


9432 072300 


005007 






CLR 


9433 










9434 










9435 








END Tl 


9436 










9437 











r. 16 
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$EQ 205 



ffCSR.RI 

fDAR.RO 

fM.SR,(RO)* 

R5,^i 

DLGETS 

fREAOY.BRl 

2$ 

(R0),R4 

«DLERR.R4 

7$ 

«DLUN.R4 

7» 

1$ 

R5.3t 

DLRDHD 
aR0.R4 
«DLCYL.R4 
R4 

R4.-(R0) 
RS.3S 
SEEK 
atSAR 

(RO)* 

f-256.«aR0 
R5.3$ 
READ 
RO 

#240,810 
8$ 

«B00T*RQMBASE-M0VER.R3 

PC .PRINT 

PC 



DL'S CSR REGISTER ADDRESS 

ADDRESS OF RL'S REGISTERS 

SET RESET AND GET STATUS 

MOVER PULSE 

GET STATUS COMMAND 

CHECK FOR DRIVE READV 

BR IF READY 

GET STATUS INFO 

ERROR MASK 

BR IF NO PACK 

UNLOAD HEADS CHECK 

BR IF YES 

JUST UAIT AROUND FOR READY 
; RE TURN TO SAVE CODE 
GET CU'^ENT HEAD POSITION 
GET ADDRESS 
JUST CYLINDER ADDRESS 
;SET UP FOR SEEK 
: CYLINDER OFFSET IN 
;D0 THE SEEK 
ISEEK COMMAND 
[ADDRESS 0 

: CYLINDER 0 SECTOR 0 
;256 UORD TRANSFER 2*S COMP 
;D0 THE READ 
;READ COMMAND 
; POINT TO DRIVE 0 
LOC 0 - TO NOP 
NOT TRUE BOOT RECORD 
iPOINTER TO PRINT ROUTINE 

"ABOUT TO BOOT XXDP" 
: LOOKS GOOD JUMP 0 



NUMBER SIXTEEN 



L 16 



CZTUZAO TUaO FRONT END PRT D 


MACRO HI 200 


29-MAR-83 13:43 PAGE 140 




PATCH AREA 












94S9 072302 


012511 


3S: 


NOV 


(R5>^<M1 


; ACTUAL MOVER WITH 


9440 072304 


032711 100200 


4S: 


BIT 


#DLDNER<8R1 


; CHECK FOR DONE OR 


9441 072310 


001775 




BEQ 


4$ 


;UAIT FOR SAME 


9442 072312 


100401 




BMI 


s« 


;BR ON ERROR 


9443 072314 


000205 




RTS 


R5 


;0K KEEP GOING 


9444 072316 


077266 


5t: 


SOB 


R2.1S 


;RETRV MINUS ONE 


944S 072320 


000000 




HALT 




;HALT ON ERROR 


9446 072322 


000000 


7»: 


HALT 




;HALT ON ERROR 


9447 072324 


000000 


8S: 


HALT 




;HALT ON ERROR 


9448 












9449 






.IF 


N2..8377 




9450 






.=.!377*1 




9451 






.ENDC 






9452 072326 






LASTAD 


:SET LAST USED ADDRESS. 



SEQ 206 



072326 
072330 
072332 

9453 
9454 
9455 
9456 

9457 072332 

9458 072332 
072332 
072334 
072336 

9459 072336 

9460 072340 

9461 072342 

9462 072344 
072344 

9463 072344 
9464 

9465 



072344 
000005 



000000 
000003 

172522 
000224 
000240 



000001 



LSLAST:: 



L10065: 



L10067: 



.EVEN 
.WORD TSFREE 
.WORD TSSIZE 

'.SBTTL HARD CODED P-TABLE 

DIAGNOSTIC IS PRE-PARAMETERIZED PER THIS TABLE 

B6NSETUP 1 

BGNPTAB 

.WORD 0 

.VN)RD L10067-./2-1 



.WORD 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 

.END 



172522 
224 
PR 105 



CZTUZAO 


TU80 FRONT 


END PRT D 


HACRO HI 200 


29-MAR-83 13:43 PAGE 


SYMBOL 


TABLE 










ADDSSR 


011762 6 


^ T ABM 

CTABn 


AA7 1 1 A r 

003116 to 


DATASC 


021124 


ADR 3 


AAAA^A ^ 

000020 u 


^#AI1 w 


A/*./MCO 

009032 


DEBU6H 


011454 


AHBTSS 


006326 




AAAAX1 

000061 


DEVCNT 


002166 6 




AAAA1 A 

000010 


CSBRK 3 


AAAAOO 

000022 


DEVDRO 


0?3564 


AlriD * 


AAAAAV 

000003 


CSBSctos 


AAil/lA/ 

000004 


DEVNRD 


023)03 


BADwAT 


AAHIA r 

003110 6 




AAAAAO 
000002 


DEVNXR 


023421 


oADSSn 


016)40 6 




AAAA/ C 

000043 


DEVONL 


023351 


BAR s 


1 f 4*02 
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000000 G 


RANFOR 


007640 


SVCGBLs 


000000 


PRI01 ■ 


000040 G 


RANNLD 


011010 


SVCINS* 


000000 


PRI02 « 


000100 6 


RAMIOP 


011014 


SVCSUB* 


000001 


PRI03 « 


000140 6 


RAHPD 


011065 


SVC TAGS 


000000 


PRIOA c 


000200 G 


RAflR5H 


011012 


SVCTST* 


000001 


PR 105 s 


000240 G 


RAflSIZ 


002246 6 


SSLSYHs 


010000 


PR106 ^ 


000300 G 


RANTAD 


016356 G 


SO.IDBs 


000010 


PR107 » 


000340 G 


RBPCRA 


015120 


SO.IFBs 


000002 


PRKSS 


0U0S2 


RCVMIA 


002250 G 


SO.IFPs 


000001 


PRHNO 


002264 6 


RCVLOA 


002252 6 


SO.ILD* 


000020 


PRNSGE 


015412 6 


RDERR 


005104 


SO. IONS 


000040 


PRHSGO 


015572 


READ s 


000014 


SO.IRDs 


000100 


PRflSGt 


015637 


READY « 


000001 


SO.IRUs 


000004 


PRHSG2 


m CA.TC 

0l36r3 


RECNSG 


002432 G 


SO. ISPs 


000200 


PROASC 


014703 


RECV 


002200 6 


SLICES 


002000 


PR1ASC 


014750 


REGSAV 


021026 


SI.IEOs 


010000 


PSTS2U 


003104 6 


REWIND 


010424 6 


SI.IFHs 


001000 


PONIT 


022502 


RLBOOT 


072140 


SI.INEs 


000400 


PV.D11* 


000021 


RHCHBE* 


000167 


SI. I IDs 


AAA 

004000 


P«.D13« 


000022 


RNCHEN« 


000200 


SI.IIRs 


020000 


PV.022« 


000020 


RNRSGfis 


000104 


S1.I2RS 


040000 


PW.NOP» 


000000 


RNNSGE* 


000117 


SI .PARS 


100000 


PW.N01« 


000023 


RNPKTBs 


000020 


S2.ATIS 


000010 
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S2.BTIS 


000004 


TTOCSR* 


177564 


S2.DINS 


000200 


TTYPRT 


071766 


S2.ILUS 


000100 


TUV2A 


002000 6 


S2.INRS 


000020 


TSARGCs 


000003 


S2.0UTS 


000040 


TSCOOEs 


001 ISO 


S2.UNDS 


000003 


TSERRNs 001144 


TBLENDs 


003030 6 


TSEXCPs 


000000 


TCOASC 


006167 


T$FLA6» 


000040 


TCOCOD 


006370 


TSFREE* 


072344 


TENP1 


003064 G 


TSGNANs 


000000 


TENP2 


003066 6 


TSHILI* 


000007 


TERCLS- 


000016 


TSLASTs 


000001 


TESTNOs 


000006 


TSLOLls 


000000 


TEST5A 


071614 


TSLSYNs 010000 


TEXASC 


006126 


TSLTNOs 


000006 


TFCASC 


006230 


TSNESTs 


000000 


TINEXP 


016412 6 


TSNSO « 


000000 


TINSGO 


016440 


TSNS1 s 


000005 


TINERR 


011643 


T$NS2 « 


000002 


TKB s 


177562 


TSPCNTs 


000000 


TKS s 


177560 


TSPTABs 


010066 


TMPBFR 


002576 G 


TtPTHV* 


000001 


TNAM 


017572 


TSPTNUs 


000001 


TPB s 


177566 


TSSAVLs 


177777 


TPS s 


177564 


TSSEGLs 


177777 


TRANST 


002134 6 


TSSIZEs 


000005 


TSBA s 


17/776 G 


TSSUBNs 


000001 


TSBAH s 


177777 G 


TSTAGLs 


177777 


TSBAL s 


177776 G 


TSTAGNs 


010070 


TSDB s 


177776 G 


TfTENPs 


000007 


TSD8H s 


177777 G 


TITESTs 


000006 


TSDBL = 


177776 G 


TSTSTHs 


177777 


TSFCOD 


006730 


TSTSTSs 


000001 


TSREJ s 


000006 


TSSAU s 


010031 


TSSDEF 


006277 


TSSAUTs 


010033 


TSSR s 


000000 G 


TSSCLEs 


010034 


TSSR8I 


003400 G 


TSSDATs 010067 


TSSRFO 


006106 


TSSDU = 


010032 


TSSRH s 


000001 6 


TSSHARs 


010063 


TSSX 


003716 


TSSHU = 


010000 


TSTBLK 


002720 G 


TSSINIs 


010030 


TSTCNT 


002162 G 


TSSNSGs 


010025 


TSTEND 


017606 


TMPC s 


000001 


TSTFLA 


002260 G 


TSSPROs 


010027 


TSTLOO 


017344 G 


TSSPTAs 


010066 


TSTPTR 


002262 6 


TMRPTs 


010035 


TSTSET 


017376 G 


TSSSOFs 


010064 


TST29I 


032101 


TSSSRVs 


010026 


TST30I 


041111 


Tissues 


010062 


TST31I 


046403 


TSiSU s 


010001 


TST32I 


052440 


TSSTESs 


010061 


TST34I 


057112 


T1 


023634 G 


TST37I 


064223 


T1.1 


023674 


TTIBFRs 


177562 G 


T1.2 


024302 


TTICSRs 


177560 G 


T1.3 


024756 


TTIVECs 


000060 G 


T1.4 


025460 


TTOBFRs 


177S66 
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12. 1 


032352 


T29WDR 


026520 


T3QUDP 


037433 


T32AH3 

1 wCm>w 


051547 


T34RT3 




T2 2 


033714 


T29UNG 


026563 

Wfc *rt* 


T31AN3 


044656 


T32BA 


051663 


TtZDUM 




T2.3 


035310 


T29WRT 


027704 


T31BA 




T32BFR 


051140 






12.4 


035662 


T29USS 

• fc F www 


031036 


1^1 Or n 


0'«3040 

V *w^W 




052166 


134STM 




T29AM3 


030402 


T3 


041312 6 


T31BF2 

1^1 Of c 


04X1 AO 

J • wV 


T32BOT 


051316 

1 w ■ 0 


1 w^^4 


055516 


T29BA 


030744 


T3.1 


041352 


T31B0T 


044205 


T32CfV> 


OS 1260 

■ lb WW 


T34S? 


055550 


T29Bf R 


026370 


T3.2 


042206 


T31BS0 


043160 


T32CNT 


051310 

VW 1 w 1 V 


T34S3 

1 w~ww 


05555? 


T296F2 


026510 


T30BFR 


036370 


T31BS1 


0431 61 


T32CNIJ 


051312 




056617 


T?' aOT 


027751 


T306F2 


036510 

www X 1 w 


T31CNT 


043176 


T32DAT 


051130 

WW V ■ WW 


T34THM 
1 1 nil 


057401 




026510 


T3060T 


037721 


T31CNU 


043200 

W~ Wfc WW 


T32DLY 


051314 

WW I w ■ ^ 


T34ys 

1 w~Wo 


05551? 


T29eS1 


026511 


T30BS0 


036510 

» ^ w ^ ■ w 


T31C0N 


043172 


T32ECF 


052255 




055554 


' T29CNT 


026534 


T30BS1 


036511 


T31DAT 


043030 

w ~ w w w w 


T32E0T 


051411 

WW ■ ^ ■ ■ 


T34UDR 


055556 

Vw^ w «0 


T29C0N 


026522 


T30CNT 


036S30 


T31DLV 


043202 


T32ERA 


051616 

W W 1 W 1 w 


T34yOL 


057540 

Ww f ^^W 


T29DAT 


026360 


T30CNU 


036532 


T31DTA 


046306 

w ~ www w 


T32L00 

1 Wfck* WW 


046670 

W~WW" w 


T34UTM 


056227 


T290LY 


026540 


T30DAT 


036360 


T31E0T 


044400 


T320PI 


052403 

V Wfc^ WW 


T37AH3 


062567 


T290TA 


030016 


T30DLY 


036536 


t3ilon 


04S360 


T32PAC 


051120 

WW • ■ &w 


T37BA 

■ w V on 


063127 

WWW * w ■ 


T29E0T 


030104 


T30DTA 


041014 


T31L0O 


041352 


T32PK2 


051230 

w w p www 


T37BFR 


061130 

WW I ■ ^w 


T29LON 


031125 


T30DTR 


040750 


T31L0P 


045442 


T32PK3 


051250 


T37BF2 

fl W« 0* 


061250 

WW I & WW 


T29L00 


023674 


T30ETM 


036366 


T31L0Q 


043756 


T32RB 


051252 

VW < fcWfc 


T37BOT 

1 W « OW 1 


062141 

WWW 1^1 


T29L0P 


031207 


T30FCN 


036534 


T31L0R 


043631 


T32RES 


052500 

WWfc W WW 


T37BS0 

• w • www 


061250 

WW i W WW 


T29L0Q 


027466 


T30IP7 


036711 


T31NEF 


04S700 


T32RIB 


051736 

WW 1 f WW 


T37BS1 

1 ^ > Ow I 


061251 

WO 1 W ^ 1 


T29L0R 


027341 


T30IBU 


036540 


T310FL 


044725 


T32RT2 


052572 

WWfc W 1 


T37CNT 


061266 

WW • www 


T29NEF 


026670 


TiOIMV 


036516 


T31PAC 


043020 


T32RT3 


052622 

W Wfc Wfcfc 


T37CNU 

< W F VI VW 


061 270 

VW 1 W • V 


T29NE0 


031445 


T30LOO 


032352 


T31P8P 


045524 


T32RUN 


051500 


T37C0N 


061 262 

WW ■ www 


T29GFL 


026542 


T30LOQ 


037510 


T31PK2 


043130 


T32SCF 


052034 

W Wfc w w~ 


T37DAT 


061 1 20 

VW 1 > WW 


T29PAC 


026350 


T30NEF 


040456 


T31PK3 


0431 50 


T32SZ 


051256 


T37DLY 


061272 

WW > W i w 


T29P8P 


031271 


T300FL 


040167 


T31RB 


043152 


T32TSA 


0521 1 1 

111 


T37DTA 


064126 

WW~ 1 WW 


T29PK2 


026460 


T30PAC 


036350 


T31R0E 


043204 


T32yB 


0S12S2 

WW ■ k Wfc 


TS7E0T 

■ W ■ b W ■ 


062311 

www W 1 1 


T29PK3 


026500 


T30PK2 


036460 


T31RDF 


043403 


T32UOC 


052336 

W Wfc W WW 


T37LON 

1 W* feiW** 


063271 

vwww • • 


T29RB 


026502 


T30PK3 


036500 


T31RES 


046450 


T34BFR 


055420 


T37L00 

t wff www 


060042 

vwww~ w 


T29RDF 


026760 


T30PTB 


037122 


T31RN 


043166 


T34BF2 


055546 


T37L0P 

V W r WW* 


063353 

vwww WW 


T29RDG 


031543 


T30RB 


036502 


T31RNC 


044603 


T34B0T 


056120 


T37L0Q 


061735 


T29RES 


032130 


T30RDF 


037273 


T31RRF 


043452 


T34BS0 


055546 

WW w w^w 


T37L0R 

1 w r w Wv« 


061610 

WW ■ w ■ w 


T29R1B 


031706 


TSORDG 


037351 


T31RT2 


046542 

w » W ^ ~ fc 


T34BS1 


055547 


T37NEF 


063611 

W WW W 1 • 


T29RN 


026516 


T30RES 


041132 


T31RT3 


046604 


T34CNT 


05SS42 


T370FL 


062636 

WWW www 


T29RNC 


030327 


T30RIB 


036625 


T31RUN 


044534 


T34C0N 


055560 


T37PAC 


061110 

VW • ■ • V 


T29RRF 


027027 


T30RN 


036516 


T31SC 


043547 


T340AT 


055410 


T37PBP 


063435 

vww^ w w 


T29RRG 


027143 


T30RRM 


040535 


T31SCF 


046021 


T340LY 


055544 


T37PIC2 


061220 

VW * WW V 


T29RRN 


032006 


T30RRN 


040613 


T31SSR 


044037 

W '~ WW f 


T34EOT 


057034 


T37PK3 

1 w » ■ ^ w 


061240 

VW ■ w~v 


T29RSZ 


026536 


T30RRP 


040672 


r31S2 


0431 56 

w~ w • w w 


T34ET 


056745 

W WW" ' w 


T37RB 


061242 

VW V w~ w 


T29RT2 


032222 


T30RT2 


041224 


TSISi 


043162 

W~ W 1 v» 


T34ETC 


056043 

wwww^ w 


T37RDF 


061362 

WW 1 www 


T29RT3 


032264 


T30RT3 


041266 


T31S3 

• ■ wW 


043164 

w~ w ■ 


T34ETN 


056404 


T37RES 


064244 


T29RUN 


030260 


T30RUN 


040120 

W~ W 1 fcV 


T31TIN 


044300 

W ' ~ w w w 


T34ET0 


055652 

W W WWWfc 


T37RN 


061256 

WW 1 W WW 


T29SC 


027257 


T30SKM 


036774 


T31TN 


044457 


TS4ETS 


056467 


T37RNC 


062514 


T29SDG 


031624 


T30SSR 


037571 


T31TRL 


045612 


TS4ETZ 


056555 


T37RRF 


061431 


T29SSR 


027547 


T30S2 


036506 


T31TSA 


046076 


T34ET2 


056316 


T37RT2 


064336 


T29SZ 


026506 


T30S2 


036512 


T31VCK 


045143 

w~ ^ 1 ~ w 


T34t00 


052706 


T37RT3 


064400 


T29S2 


026512 


T30S3 


036514 


T3iyB 


043152 

W~ W I Wfc 


T34PAC 


055400 


T37RyN 


062445 


T29S3 


026514 


T30TN 


037766 


T3iyDC 


04S070 


T34PK2 


055510 


T37SC 


061526 


T29TM 


030202 


T30TNK 


040374 


T31UDD 


045000 


T34FK3 


055530 


T37StF 


063707 


T29TRL 


031357 


T30TH2 


040043 

w~ w w~ •» 


T31UDE 


044073 

W ^ ^ w » w 


T34P0S 


055564 


T37SSR 


062016 


T29VCr 


030671 


T30TPB 


037213 

WW* ^ • 


T31U0F 


043701 


T34RB 


055532 


T37SZ 


061246 


729yB 


026502 


T30VCK 


040321 


T31U0R 


043170 


T34RES 


057614 


T37S2 


061252 


T29yDC 


030577 


T30yB 


036502 


T31WN6 


043331 


T34RRE 


055742 


T37S3 


061254 


T29W00 


030470 


T30UDC 


040242 


T3iyillH 


043250 


T34RRF 


057466 


T37TIM 


062234 


T29yDE 


027622 


T30V0D 


037050 


T31MIF 


046203 


T34RSZ 


0SSS40 


T57TM 


062370 


T29WDF 


027411 


T30yOE 


037642 


T31WSS 


045271 


T34RT2 


057706 
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T37TSA 


06376A 


UNREC s 000006 


URTMSG 


004754 


T37VCIC 


06305A 


USI 004021 


XFERAS 


016600 


T37UB 


061242 


UAITF 017110 G 


XNXn 


017264 


T37U0C 


063001 


UC.IFAs 000200 


X0R6F0 


007416 


T37U0D 


062711 


UC.IFEs 000002 


XORFOR 


007)34 


T37U0E 


062052 


UC.IGO* 000001 


XSTO > 


000006 G 


T37UDF 


061660 


VC.IRE* 000010 


XST1 s 


000010 G 


T37W0R 


061260 


UC.IRUs 000004 


XST2 s 


000012 G 


T37WNG 


061274 


UC.IOT* 000100 


XST3 ' 


000014 G 


T37URF 


064046 


WC.I1T* 000040 


XST4 s 


000016 6 


T37USS 


063202 


UC.I5RS 000020 


XSOBOTs 


0OO0Q2 




046630 G 


UF.IED* 000010 


XSOCON 


01516S 


T4.1 


046670 


UF.IERs 000004 


XSOEOTs 


000001 


U.2 


047506 


WF.IHI* 000200 


XSOIE « 


00004C 


U.3 


050274 


UF.IRE* 000040 


XSOILA* 


000400 


T5 


052646 G 


UF.1UF« 000020 


XSOILC* 


001000 


T5.1 


052706 


UF.IURs 000100 


XSOLET* 


020000 


T6 


057776 G 


UF.I3R« 000002 


XSONOT- 


000200 


T6.1 


060042 


UF.I4R* 000001 


XSONEFs 


002000 


UAN > 


000200 G 


URTCHR 010322 G 


XSOONL* 


000100 


UNITN 


002150 G 


WRTERR 005011 


XSOPEDs 


000010 
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XSORLLs 010000 
XSORLS* 040000 
XSOTMK* 100000 
XSOVCM 000020 
XSOWLE* 004000 
XSOWLK* 000004 
XS1C0N 015232 
XS2C0N 015277 
XS3C0N 015344 
XXCOMH 003070 G 
XSALWAs 000000 
XSFALS< 000040 
XSOFFSs 000400 
X$TRUE« 000020 
Xl.COR* 020000 
Xl.DLTs 100000 
X1.MBZ« 017375 
Xl.RBPs 000400 
XI. SPA' 040000 
X1.UNC« 000002 
X2.BUF« 000100 



X2.EXTt 000200 
X2.0PM« 100000 
X2.RCE* 040000 
X2.REV* 000077 
X2.SPA> 035400 
X2.UNI* 000007 
X2.WCF* 002000 
X3.DCK* 000010 
X3.MBZ* 000006 
X3.MDE* 177400 
X3.0PI« 000100 
X3.REV> 000040 
X3.RIB* 000001 
X3.SPA* 000200 
X3.TRF* 000020 
X4.HSP* 100000 
X4.MBZ* 017400 
X4.RCE» 040000 
X4.TSM* 020000 
X4.WRCS 000377 



